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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'# INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. oeponat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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! FACILITY: 
Files-11 structure verification utility. 


i ABSTRACT: 
: This is the main module. 


! ENVIRONMENT: 
! VAX/VMS user mode. 


i 
; AUTHOR: M. Jack, CREATION DATE: 11-Oct-1980 


i MODIFIED BY: 


v03-010 BLS0328 Benn Schreiber 30-JUN-1984 
Ensure ctrl/y re-enabled in exit handler. 


v03-009 BLS0273 Benn Schreiber 20-FEB-1984 
ade ccrl/e. ctrl/y handler to unlock volume and exit 
verify. 


vO3-008 MLJ0116 Martin L. Jack, 13-Aug-1983 15:50 
In HEADER_ERROR, cover an error for a file sequence number of 
“1. This is the flag for previously deleted headers. Update 
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for long filenames and long UICs. 


v03-007 MLJ0107 Martin 5 Jack, 4-Apr-1983 13:19 
Update for change to FH2SC_LENGTH, 


v03-006 MLJ0095 Martin f Jack, 17-Aug-1982 18:29 
Remove references to CLISEND_PARSE. 


vO3-005 MLJ0092 Martin L. Jack, 6-Jul-1982 13:41 
Avoid generating a leading space in ODS-1 format date. 


v03-004 mi, 10090 Bertin L. Jack, 25-May-1982 16:09 
Fix access violation after failure of CHSFIND_CH. 


v03-003 MLJ0087 Martin L. Jack, 7-Apr-1982 15:00 
Fix eysete violation in traversing work List. Support ODS-1 
revision 2 disks. 


V03-002 MLJ0084 Martin L. Jack, 25-Mar-1982 21:32 
Use a random sequence number rather than the next sequential 
sequence number when rewriting a bad header with a deleted 
header. This tracks a policy change in the ACP. 


v03-001 MLJ0083 Martin L. Jack, 22-Mar-1982 9:35 
Add check for yergerenay ODsS-2 directory and return ‘‘directory 
file has invalid format’ error. 


v02-006 MLJ0075 Martin L. Jack, 29-Jan-1982 12:39 
Use FIB$V_NORECORD. 


v02-005 MLJ0074 Martin L. Jack, 23-Jan-1982 23:24 
Rename (001003) to CSYSLOST] to remove VMS dependence on 
numbered directories. 


v02-004 MLJ0061 Martin L. Jack, 30-Nov-1981 10:31 
Account for $GETDVI interface change. 
v02-003 MLJ0055 Martin L. Jack, 15-Oct-1981 20: 


28 
Issue message if lost files not entered. Add /USAGE qualifier 
to generate disk-accounting data file. Issue message if 
directory file not named '.DIR;1°. Implement complete syorege 
control block validation and reconstruction. Use $GETDVI. Add 
checks for quota file attributes. 


MLJ0035 Martin L. Jack, 27-Aug-1981 21:29 
Allow extension file ID to point to CONTIN.SYS. 


v02-001 MLJ0030 Martin L. Jack, 30-Jul-1981 23:23 
Consider alternate index file header invalid ony if it fails 
basic validation or if the map areas or EFBLK differ. Change 
Listing default name string so that At istTauts has a reasonable 
file name. Write-access the quota file to flush the ACP cache. 
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LIBRARY ‘SYSSLIBRARY:LIB'; 
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14- ~Sep- 198 9: 33 #9 VERIFY SREVERINY 65007 
FORWARD ROUTINE 
yeriry ! Main routine 
INIT_VOL_DATA: NOVALUE, i Initialize per-volume data 
READ_HOMEBLOCK: WOVALUE ' Read nd che : none block 
SCAN et NOVALUE, ' Scan 
VERIFY_HEADER, ' Check ~’ tLe a 
MAP_PROCESS: NOVALUE, ' Process map area 
CREATE WINDOW, ' create window for file 
DELETE WINDOW: NOVALUE, ' Del ae window for file 
MAP_VIRTUAL, ' Map v index: t to logical for file 
ACCESS_INDEX_2: NOVALUE, ' access index file on second channel 
COUNT_GUOTA: NOVALUE, ! Maintain quote data base 
READ_READER ! Read a e hea 
WRITE HEADER i Write a file header 
DELETE_HEADER: NOVALUE, ! Write a deleted file header 
CLEAR_EXT_FID: NOVALUE, ' Clear extension Linkage 
READ_CHECR: NOVALUE, ' Do read checking 
FILE ERROR: NOVALUE, ! Signal a file-related error 
HEADER_ERROR: NCVALUE, ' Signal a header-related error 
PROCESS FILE ! Process. one file 
PROCESS SUBDIR: NOVALUE, i Process one subdirector 
SCAN_DIRECT_1, ' Scan a directory (ODS-1 
SCAN_DIRECT_2, ' Scan : directory (0DS-2) 
DIR_SCAN: NOVALUE, ! Scan all directories 
FAO: NOVALUE, ! Format information to Listing 
EOL: OVALUE, ! Write Listing buffer to file 
ENTER_WOR NOVALUE, ! Enter an item on work List 
PROCESS WORK: NOVALUE, ' Process work List 
O_REPAIR, ' Evaluate repair control qualifiers 
EXTT_HANDLER NOVALUE, ' Exit handler 
C AST: NOVALUE, ' CTRL/C, CTRL/Y handler 
CHECR_DATE: NOVALUE ; ! Check date field 
EXTERNAL ROUTINE 
CHECKSUM ! Compute file header checksum 
CHE CKSUM2, Compute home block checksum 


MAKE STRING. 
CLISGET_VALUE: 


Find leftmost one bit in a longword 
Convert ODS-1 filename to ASCI 
ADDRESSING -HODE (GENERAL LZ, 


CLISPRESENT: ADDRESSING MODE (GENERAL) 
! Det ernine if entity is present 
LIBSDISABLE_CTRL: ADDRESSING NODE (GENERAL 
ble ETRE handling 
LIBSENABLE_CTRL: ADDRESSING_ MODE (GENERAL ) 
! Re- enable it again 
LIBSFREE_VM: ADDRESSING -MODE (GENERAL) 
Free virtual memory 
LIBSGET_COMMAND : ADDRESSING RODE (GENERAL 
ine from SYSSCOMMAND 


LIBSGET_VM: ADDRESSING_ MODE (GENERAL), 
' Get virtual memory 


& parameter or qualifier value 


LIBSSCOPY_R_DX: ADDRESSING vais 2-3 
ADDRESSING =PODE (SERS RAL RAL}; 
clensl 


string 
LIBSSIGNAL: 
a condition 
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; 0 1 CHANNEL 7, '! Second channel to Ass : | 
3 1 _RON i + nonzero, index e on this RVN is accessed on ‘ 
; 1 “orre, : yotal pace mapped y headers for current file 4 
; 5 1 DUA (  RELOC FOUND, ! True i} PpuLtt 8 l ocat ¢d blocks exist ) 
3 1 DUAL-ALLOC"PASS, ' True if second Sass to tn multipl allocated blo ° 
; 5 1 DIRECTORY ERROR, } prye if wre occurred po ng directory scan ‘ 
; 3 § 1 OLD_CTRL_MASK ! Q old ctrl e ar enable mask : 
: 1 EXIT CHAN. DESE: vECTORES). i Exit handler descriptor : | 
; 340 8 1 i Head of quota able list : | 
; 341 1 QuoT ALACTIVE ! True if quota file on volume s : | 
: 34 40 1 QUOTA DISABLE. ! True if quota processing must “be disabled : 1 
: 41 1 DEFA RUCT i Default quota value :] 
; 34 ae | DEFAULT “OVERDRAFT, | Default overdraft value : | 
; 345 43 1 LAST_UIC, i Last existing UIC in quota file 2] 
: 46 44 1 BLOCK QFS$C_LENGTHI, | Quota record buffer : | 
> 34 45 1 FER: BBLOCK gs IRDEX_BUF COUNT] ! Index file buffer ‘ } 
; 348 re 1 BUFFER_2: BBLOCKL512] ! Second buffer : 
; 349 47 1 BBLOCK FIBSC LENGTH], i General FIB used for all Q10's : 1 
; 350 48 1 RECATTR: BBLOCKCFATSC_LENGTHJ, i Record attributes area .; 
; 351 0349 1 UCHAR: BBLOCKE4 i File characteristics area : | 
i $e 0350 1 DIR: VECTORES 6,eyTe), i Current directory string 3 
; 35 0351 1 DIR_DESC: VECTOR i Descriptor for current directory string ; | 
; 354 Ose 1 DIR-FID: BBLOCKEF I16$C_LENGTH, i File ID of current directory 3; | 
; 355 0353 1 LOST_DIR_FID: ®BBLOCKCFIDS$C- pyencrnd. i File ID of lost file directory | 
; 356 0354 1 10SB: VECTORL4 ,wORD : General 1/0 status block used” fer all Q10's 3 | 
; 357 0355 1 VOLUME COUNT, ' Number of volumes in volume :] 
; 358 0336 1 STRUCTORE “LEVEL, i Structure Level of volume set. : 
3; 359 0357 1 HOME VBN ' VBN of primary home block : | 
; 360 0358 1 WORK LIST: VECTOR 3 ; i Work List header : | 
; 361 0359 1 CURRENT TIME: VECTOR ' Current time in 64-bit format ; 
: 368 0360 1 CURRENT-TIME_1: BBLOCKC134, i Current time in ODS-1 format 3; | 
; 0361 1 DEVICE_BDESC:~ VECTOR @). i Descriptor for DEVICE_NAME : 1 
3 366 1 DEVICE_NAME: VECTORL16,BYTE] ! Device name for specific RVN : 
; 363 DEVICE-CHAR:  BBLOCKCOVE_LENGTH, i Device characteristics buffer : | 
; 0365 1 ; 
; 0 1 : 1 
3 8 1 é | 
3 1 q | 
3 0 1 ‘| 
; 1 e 
3 1 mi 
3 1 : 
; 1 : 
3 1 : 
3 1 . 
; 1 : 
3 1 : 
3 1 : 
3 1 : 
3 1 ‘ 
; 1 : 
; 1 ° 
3 1 : 
3 1 ‘ 
3 1 : 
; 1 ‘ 


PER_VOLUME_BEG: VECTORC(O) ! Beginnin ret per-volume information 
367 ACCTL: REF VECTOR, ! F tt WRITE if write-accessing files 
368 IMAP_SIZE: REF VECTOR, ! Numb er of blocks in index file bitnep 
369 MAXFILIDX: REF VECTOR, ' Hi hest valid Le number minus on 
370 MAP: REF VECTOR, ! Bitmap of valid file manors = new inden file bitm 
yal IRMAP: REF VECTOR, ! Bitmap of directory 
LK: SEQMAP: REF VECTOR, ! Word vector of file se ence number 
HY BACKMAP: REF VECTOR, ! Three-word vector of file back “Tink FID 
74 LOSTMAP: REF VECTOR, ! Bitmap of valid wire numbers not yet found in dire 
75 EXTMAP: REF VECTOR, ! Bitmap of file numbers referenced by extension Lin 
6 OWNER: REF VECTOR, ; loomel Rai 3 of siie 0 wner UIC 
7 ALLOCATION: REF VECTOR, ! Longword vector of file allocated blocks 
i USAGE : REF VECTOR, ! Longword vector of file used blocks 
30 SMAP_SIZE: REF VECTOR, ' Number of blocks in storage bitmap 
VSMAP : REF VECTOR, ! Bitmap or allocated clusters 
§ NSMAP: REF VECTOR, ! VSMAP | s lost extension headers = new storage bi 
MUL TSMAP : REF VECTOR, ! Bitmap of multiply allocated clusters 
5 cuusren FACTOR: REF VECTOR, ' Cluster factor 
6 R_OFFSET: REF VECTOR, ! VBN offset to file header 
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VERIFY Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 Page 8 
v04-000 1 ~3007 138% 96:39:99 VERIFY.SRCIVERIFY B32; . (3) 
: $8 7 2 BITMAP_OFFSET: REF VECTOR, ! VBN offset to index file bitmap 
3 1 EOF: “} VEG TOR. ' VBN of index file 5 OF 
3 4 ! PER_VOLUME_END: VECTORLOJ; ! End of per-volume information 
3 3 91 «1 
; Be 2 ! LITERAL 
3 %6 Be ! Values of the parameter to DO_REPAIR. 
; 398 a8 1 NO_CONF IRM= 8 00) ! /CONFIRM prometin inhibited 
3 iz 9 ! ALCOW_DELETE=  %8'11'; ! DELETE is a /CONFIRM option 
3 43 38 1 
: 4 ; 400 1 MACRO 
; 40 401 1 
3; 404 4 ¢ 1 ! Field definitions for work list. 
3; 405 04 1 ! 
3 O08 404 1 WRK _LINK= 0,0,32,0 %, ! Link to next block 
: 40 405 1 WRK-TYPE= 4.0.8,0 % i Type of entry 
: 408 406 1 WRK~FID= 6.0.16,0 & i File ID of entry (ENT, REM, DEL) 
: 409 0407 1 WRK-DID= 12,6,16,0 %  ‘ Directory ID of entry (REMS 
: 410 0408 1 WRK-UIC= 6 3 6% i UIC of entry (ADD) 
: 411 0409 1 WRK-USAGE= 12,6,32,0 &; | Usage of entry (ADD) 
3 oi¢ 0410 1 
3 461 rae 1 
: 4146 tig 1 LITERAL 
: 415 04135 1 _S_ENTER= \ee ! Size of ENTER entry 
; 416 0414 1 WRK_S_REMOVE= 18, ! Size of REMOVE entry 
: 417 0415 1 WRK-S-ADDQUO= 16, i Size of ADDQUO entry 
3 418 Belg 1 WRK_S_DELETE= 12, ' Size of DELETE entry 
> 419 417 1 “KTENTER= 0, i Enter file in CSYSLOST) 
; 420 0418 1 WRK_K_REMOVE= 1, ! Remove file from directory 
; 421 bee 1 WRK_K_ADDQUO= ¢: ! Add quota entry 
3; 4 é 420 1 WRK_K_DELETE= 3 ! Delete file 
; 4 0421 1 
3; 424 04 § 1 
; 2 5 04 Z } MACRO 
; ? ; ? 5 ' Field definitions for quota table. 
: 429 4 5 1 QT_LINK= 0.0.36 0 %, ' Link to next block 
3 ? $ ? 8 ! QT_COUNT= 4,0,32,0 &, ' Count of used entries in this block 
3; 6 430 1 QT_UIC= 0.32.0 %. ' Entry UIC 
; 4 § be 1 1 QT~QU0_USED= 0:9°33°9 i, ; Entry usage per quota file 
3 ? : 4 ¢ ! QT_IDX_USED= 8,0,32,0 2%; ! Entry usage per index file 
; 4 434 1 
3; 4 435 1 LITERAL 
; 4 1 QT_S_HDR= 8 ! Size of quota table block header 
; 439 437 1 QT~S"ENT= if i Size of quota table entry 
; ay 4 3 ! QT"MAXCOUNT= 256; ! Maximum entries per bloc 
3 44 440 1 
> 44 441 1 MACRO 
3 464 aug 1 
3 «6445 445 1 ! Field definitions for window block. 
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VERIFY Main module 1b-5¢ =-1984 02:15: AX-11 Bliss-32 V4.0-74 

v64-000 1 ~8ep-19 4 96:33:99 VERIFY. Reivenity o3or4 

; 49 489 1 ROUTINE VERIFY= 5 
; 49 rk} 1 3 
3: 494 491 1 !++4 : 
; 495 138 1! 3 
: 49 49 1 ! FUNCTIONAL DESCRIPTION: ‘ 
; ret t3e } This routine is the main entry point to the VERIFY utility. : 
; 499 496 1 ! INPUT PARAMETERS: : 
; eRe ond } Standard VMS activation parameters (not used). : 
; 503 0499 1 ! IMPLICIT INPUTS: 3 
; 28 B200 1! NONE 3 
3 4 0501 1! 3 
; 505 8206 1 ! OUTPUT PARAMETERS: 3 
: 506 0503 1! NONE 3 
: 507 0504 1! $ 
; 508 0505 1 ! IMPLICIT OUTPUTS: $ 
; 30) 0506 1! NONE : 
; 510 0507 1! 3 
g ST) 0508 1 ! ROUTINE VALUE: $ 
3 21§ 0509 1! SS$_NORMAL. 3 
eS 0510 1! 3 
3 514 0511 1 =! SIDE EFFECTS: $ 
s 315 bai¢ . 3 NONE 3 
; 516 0513 1! 3 
3. Sir 0514 1 !<=- F 
3; 518 0515 1 3 
; 519 0516 BEGIN ; 
3 269 0517 LOCAL 3 
s Sei 0518 ACCTL_O ' ACCTLCO] before ACCTL is allocated ; 
3 256 0519 NO_WRITE, ' True if any volume is write locked ; 
s 5e 0520 STATUS; ! General status variable ; 
3 es 0521 3 
3; 525 b256 3 
; 258 6252 Get the parameter, the device to be verified. : 
; 528 o25¢ QUAL_DEV_DESCCDSC$B_CLASS] = DSCS$K_CLASS_D; : 
; 267 b25$ CLISGET_VALUE (SDESCRIPTOR( "DEVICE'S, QUAC_DEV_DESC); : 
: 531 0528 : 
: 236 0899 ! Execute a SPARSE to check the specification. It must have a valid device, 3 
3; 35 0530 ! but must not have any other file specification components. The Listing FAB F 
: 3 0531 is used as a temporary for this operation. ; 
$ 6 P 03 : SFAB_INIT(FAB=LIST_FAB 3 
; 537 P 0534 FNA=.QUAL_DEV_DESCCDSCS$A_POINTER], : 
> 538 P 0535 FNS=.QUAL~DEV-DESCCDSC$W_LENGTHJ, : 
FY 44 5 § NAM=LIST >: 3 
; 540 P 053 SNAM_INIT(NAR=LIST_NAM, : 
: 541 P 238 ESA=LIST_RSA, 3 
; ri} 53 ESS=NAMSC_MAXRSS); : 
2 az at SPARSE (FABSLIST_FAB) ; : 
; 45 246 LIST ger ESL) EQL 0 OR : 
: rt 54 (.LIST_NAMCNAMSC_FNB) AND : 
: 54 544 (NAMSM_EXP_DIR OR ; 
: 548 545 4 NAM$M_EXP_NAME OR : 
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VERIFY Main module 18-36 -1984 02:15: AX-11 Bliss-32 V4.0-74 P 11 
V04-000 1ergeb7 138s 99:53:49 | HRT eb kes yea 483544 wr 
NAMSM_EXP_TYPE OR 
NAMSM~EXP"VER OR 


NAMSM_NODE 0 
NAMSM_QUOTED)) NEQ 0 


HEN 
SIGNAL (VERIFYS_INVDEVICE, 1, QUAL_DEV_DESC); 


OOOooe 
PUSS 


FISTS ES £* 


Store the device name back into the device descriptor. 


LIBSSCOPY_R_DX( 
ZREF (TLTST_NAMCNAMSB_DEV]), 


LIST_RSA, 
QUAL _DEV_DESC); 


PEA AAQPEMNMNGINIIVIVIT 


tialize the device name descriptor with the device name of RVN 1. 
ure that the device is valid. 


V 
NAM=QUAL _DEV_DESC, 

LST=UPLIT( 

WORD(4, DVIS_DEVCHAR OR DVISC_SECONDARY), 
LONG(DEVICE CHAR, 0), 

WORD(16, DVI$_ROOTDEVNAM), 
LONG(DEVICE_NAME, DEVICE_DESC), 
LONG(0))); 
IF NOT .STATUS 


N 
SIGNAL(VERIFY$_GETDVI, 1, 1, .STATUS); 


vuvVvUUU 
z< 
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OOOO NNN SIN NNN NOOO 


3 — -DEVICE_CHARCDEV$V_RNDJ 
SIGNAL (VERIFYS_INVDEVICE, 1, QUAL_DEV_DESC); 


Get value of /LIST. 


QUAL_LIST_DESCCDSC$B CLASS], 


DSCSK_CLASS_D; 
1 GUT SPRESENT (SDESCRIPTOR *)) 


LIST 


BEGIN 
QUALCQUAL_LIST] = TRUE; 
cu GET_VALUE(S$DESCRIPTOR('LIST'), QUAL_LIST_DESC); 


woo 


Get value of /USAGE. 


QUAL_USAG_DESCCDSC$B CLASS] DS Hh. 


= DSC$K_CLASS_D; 
rege PRESENT (SDESCRIPTOR *USAGE')J 
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BEGIN 
6 QUALCQUAL_USAG) = TRUE; 
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FILE _ERROR( 
VERIFYS_FACILITY*16 + SHRS$_OPENOUT + STSSK_SEVERE, 


-USAGE_RABCRABSL_STS], .USAGE_RABCRABSL_STVJ); 


ssss 


STATUS = SASSIGN(DEVNAM=QUAL_DEV_DESC CHAN CHANNEL) ; 
F NOT .STATUS THEN SIGNAL (VERIFY$_ASSIGN QUAL mie DESC, .STATUS); 
TATUS = $ASSIGN(DEVNAM=QUAL CNAneeHA 


Esc 
NOT .STATUS THEN STONALCVERIFYS-A ASSIGN I SM UAL Hey DESC, .STATUS); 
Assign a channel to SYSSCOMMAND, disable CLI ctrl/y handling, and 


V -Sep-1 VERIFY g33: 

; 663 660 ; 
; o8e ? Put a header Line on the Listing. : 
: 66 66 FAO_('Listing of index file on !AS!/!%D', QUAL_DEV_DESC, 0); : 
es; 664 EOLT); ° aveNe : 
; 668 665 EOL(); 3 
3; 669 296 END; ; 
; 670 66 3 
; gr) bee8 ! Open th fil 
3 ' Open the usage e. 2 
: Be 0690 5 | ° 
: 674 671 if .QUALCQUAL_USAG) ; 
; 675 ie THEN 3 
3 O76 67 BEGIN 3 
; 67 P 0674 $FAB_INIT(FAB=USAGE_F ; 
: 678 P 0675 BNA=UPLIT BYTE(TU SAGE. DAT’), : 
: 679 P 0676 DNS=3CHARCOUNT (USAGE: DAT). : 
; 680 P 067 FAC=PUT ; 
; 681 P 0678 FNA=.QUAL_USAG ~PEStEDSCEA POIN ERI, ; 
: 68 P 0679 FNS=. QUAL_USAG_DESCLDSC$W-LENGTHJ, : 
; 468 P 0680 FOP=SQ0 ; 
; 684 P 0681 NAM=USAGE_NAM, ; 
: 685 P 068¢ ORG=SEQ, F 
5 O56 P bes poten 3 
; 68 0684 VAR); ; 
; 688 P 0685 SRAB NONI TCRABSUSAGE _RAB, : 
: 689 Pp 0686 FAB=USAGE_FAB : 
; 690 P 068 RBF =USAGE “BUFFER, ; 
: 691 0688 ROP=WB : 
: 69 P 0689 SNAM INIT (NAR-USAGE _NAM, ’ 
; 69 P 0690 ESA=USAGE_RSA ; 
: 694 P 0691 ESS= Ueage “MAXRSS F 
: 695 P 069 RSACUSAGE “RSA 3 
3; 696 069 RSS=NAMSC MAX 3 
: 697 0694 IF NOT SCREATE CE AES SBSAGE _FAB) ; 
; 698 0695 HEN ; 
; 0696 FILE_ERROR( ; 
: 700 0697 VERIFYS FACILITY*16 + SHR$_OPENOUT + STSS$K_SEVERE, : 
: 70 0699 E_FABCFABSL_STS], .USAGE_FABLFABSL_STVJ); ; 
; 70 700 IF_NOT S7ONNEET CRABCUSAGE® RABS ; 
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~ 12: =tep- VERIFY. 
} enable ast's for CTRL/C and CTRL/Y. 


STATUS = rap) o Sigg | tall SYSSCOMMAND'), 
CHAN=CHANNEL _T 
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1 

3 

1 2 IF .STATUS 

¢ 3 THEN BEGIN 

LIBSDISABLE CTRL (ZREF (2X"02000000') OLD. CTRL_MASK) ; 

i QIOW(FUNC=TIOS SETMODE OR IOSM_CTRLCAST), 
5 HAN ‘ 

6 0 

1s 

0 

4 

; 
s 
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sar0e reat St HER Se EmoDE OR IOSM_CTRLYAST), 
HAN=.CHANNEL_TT, 


Mp so OSB 4 
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SQN NNN 


PI=CTRL_AST, 
4  P _USER); 
ND; 
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8 : 
0 
8 : 
8 : Declare the exit handler. 
0740 EXIT aire 4 “Dest = ere HANDLER; ' Handler address 
0741 EXIT"H ' Argument count 
bres EXIT"H = EMuT HAND _DESC(4]; ! Pointer to status longword 
: Bree EXLT-HAND-BESELS] =  HAND_DESC); 
74 0745 IF .QUALCQUAL_REPAJ 
pre THEN 
750 074 BEGIN 
751 0748 ' Lock the volume set. 
Peg 0749 i 
75 0750 CHSFILL(O, FIBSC_LENGTH, FIB); 
754 0751 FIBCFIB$W.CNTRLFONC) = F1B$C_LOCK_VOL; 
755 e Brg STATUS = alt 
756 P 075 FUNC=]0$_ACPCONTROL, 
757 P 0754 CHAN=. CHANNEL, 
758 P 0755 10S8=10S8 
759 136 Pl=FIB_ DESC); 
760 75 IF “STATUS THEN tratus = .10SB(0); 
761 BF e8 IF NOT STA 
166 759 THEN 
76 760 4 BEGIN 
764 761 4 SIGNAL (VERIF Y$_LOCKVOL STATUS); 
765 762 4 QUALCQUAL_REPA] = FALS “he 
£06 76 END; 
76 764 END; 
oes 765 
7 U8 
oy oe Access the index file on RVN 1. Read the file header into HDR_BUFFER. 
77 7 CHS Ith {0. set -LENGTH, FIB); 
77 7 ? NO rick 
774 77 FIBCFIB “ect "s accTL O = FIBSM_WRITE OR FIBSM_NORECORD; 
775 77 F IBLF IBSW W_FID IDSC_INDEXF; 
776 77 F IBLF IBS W-FID Sea = FIDSC_INDEXF; 
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774 2 FIBCFIB$W_FID_RVN) = 1; 
775. 2 STATUS = $108( 
106 FUNC=I0$_ACCESS OR IOSM_ACCESS, 
77 CHAN=. CHANNEL, 
77 10SB=10S8 
77 Pi=F1B_DESC 
7 PS=HDR-ATR_ DESC); 
781 2 IF .STATUS "THEN STATUS = .JOSBCO); 
7 ‘ IF .STATUS EQL SS$_WRITLCK 
7 THEN 
784 BEGIN 
785 CHSFILL(O, FIBSC_LENGTH, FIB); 
7 : NO Rite = TRUE:~ 
7 FIBCFIBSL_ACCTL) = aceTL 60 = F1BSH _NORECORD; 
788 FIBCFIB$W—F1D_NUM IDSC_INDE 
789 FIBCFIBS$W-FID-SEQ) = FDS INDEXE: 
790 FIBCFIBSW-FID-RVN] = 1; 
791 STATUS = $0100 
196 FUNC=10$_ACCESS OR I0SM_ACCESS, 
79 CHAN=. CHANNEL, 
794 10SB=10SB 
795 Pi=F1B DESC 
796 PS=HDR-ATR DESC); 
197 1: .STATUS THEN STATUS = .10SBLO); 
sop IF NOT .STATUS THEN SIGNAL(VERIFYS_OPENINDEX, 1, 1, .STATUS); 
01 
: Read the home OocK on e sta sh the size of the volume set an 
80 ! Read the home block on RVN 1. Establish the size of the vol d 


the structure level. 
READ_HOMEBLOCK(1); 
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: Generate the usage file identification entry if required. 
iF .QUALCQUAL_USAG) 
THEN 


=—o 


BEGIN 
USAGE _BUFFERCUSGSB_TYPE] = USGSK_IDENT; 
CHSMOVE 


SBYTEOFFS 1 Cuscsa TIME) = S$BYTEOFFSET(USGS$L_SERIALNUM) , 
BUF FERCHMOSL LNUM 
USA GE_BUFF FERTUSGSL SERIALNU 
SGET TTINCTIMADR= USAGE 8 bore eatheees timed); 
= USG$K_IDENT_LEN; 
iF Mer S$PUT (RAB=USAGE_RAB) 


N 
FILE 


a ee et a 


Po 


OR( 
vERIF'S FACILITY + SHRS_WRITEERR + STSSK_SEVERE, 
-USAGE_RABCRABSL_STS], .USAGE_RABCRABSL_STVJ); 
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the per-volume data. Each variable between PER_VOLUME_BEG and 
END is a@ pointer to a vector that varies with the number of 
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; volumes in the volume set. 
iNCRA A FROM PER_VOLUME_BEG TO PER_VOLUME_END-%UPVAL BY %UPVAL DO 
STATUS s LIBSGET YI CHREF (- VOLUME OUNT sKUPVAL} . 


F NOT . FATUS § TREN SIGNAL(VERIFYS_ALLOCMEM, 0, “AtiTus) ; 
chsrILci » »VOLUME_COUNT®*ZUPVAL, .-A); 
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Initialize the per-volume data for RVN 1. 
iN pata — 0); 
AccTCLOd~e 


! If this is a volume set, access the index file of each volume in the set 
and get the per-volume data. Do this beforehand to check access tOtlity 
all volumes in the set. Read the file header into HDR_BUFFER. 


INCR RVN FROM 2 TO .VOLUME COUNT DO 
LENGTH, FIB); 


$ 

Lj“= ACCTLE. RYN} = FIBSM_WRITE OR FIBSM_NORECORD; 
els FIDSC_INDEXF 

R 
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OOM wm 
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DAA £* 


EQ) = F1DSC INDEXF : 
VNJ = FRAN 
C 


2 0 Oe Oe 


$s’ 


= ACCESS OR IOSM_ACCESS, 
CHAN=. CHANNEL, 


WR SO OONAUS WO VON wry 


FIB_DESC 

HDR“ATR DESC); 

TUS S"THEN eek TUS = ,10SBCC); 
I 
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“ret - 


TATUS EQL SS$_WRITLCK 


xm 
Aa 


C LENGTH, FIB); 


= ee ts Tit ‘ett = FIBSM_NORECORD; 
Sea} = FIDSC EXF; 
Ss 
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= FIDSC_ INDEX: 
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S OR IOSM_ACCESS, 


i $8=1088 
FIB_DESC 
PS SHDR “ATR bese); 
IF .STATUS THEN STATUS = .10SBCO); 


D; 
F NOT .STATUS = SIGNAL (VERIFYS -OPENINDEX, 1, .RVN, .STATUS); 
EAD _HOMEBL OCK(.R 
NIT. VOL_DATA(. RYN *ACCTLE. RVN-1)); 
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H Mark quota processing enabled. 
QUOTA_ACTIVE = TRUE; 


Loop to read the quota file. 
INCR VEN FROM 1 TO ROT(.RECATTRCFATSL_EFBLK], 16) = 1 BY INDEX_BUF_COUNT DO 


LOCAL 
THIS_BLOCKS; ! Count of blocks to read on current iteration 


Compute number of blocks to read this time. 


ints BLOCKS : MINU( 
INDE OUNT 
ROTL. XRECATSR FATSL_EFBLK], 16) = .VBN); 


Read the blocks. If this fails, re-execute the read one block at 
a time noting the blocks that fail. The buffer for each failed 
block is set to zero to effectively ignore that block. 


STATUS = $Q10W 
FUNC=10$ READVBLK, 
CHAN=,C 


1osB=10sB, : 
P1=BUFFER 
P2=. THIS -BLOCKS * 512, 


P5=.V 
. STATUS THEN STATUS = .10SB(0]; 
A. NOT .STATUS 
BEGIN 
INCR by FROM 0 TO .THIS_BLOCKS-1 DO 
STATUS = $Q10W 


Ow( 
FUNC=10$_READVBLK, 
CHAN=. CHANNEL, 

OSB= 


u- nomemed 


IF 
IF _N 
TH 


I i0s 8, 
PI=BUFFER + .XVBN * 512, 
P2= 
P3=, VBN XVBN); 
IF STATUS THEN STATUS = -10SB8(0); 
IF NOT .STATUS 
THEN 
BEGIN 
SIGNAL (VERIF YS -READQUOTA, P VON + .XVBN, .STATUS); 
a . 5127 BUFFER + .XVBN * 512); 
END; 
END; 


Loop to process each quota entry. 
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Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 P 19 
13-88-1382 96:39:99 VERIFY. SRCIVERIFY.B832; we oli 

i 5 INCRA ENTRY FROM BUFFER TO BUFFER + .THIS_BLOCKS*512 = DOFSC_LENGTH BY DQFSC_LENGTH DO 

1004 é P 

09 ENTRY: REF BBLOCK; 

1 oF IF_.ENTRYCDQFS$V_ACTIVE) 

1 8 THEN 

100 BEGIN 

1 19 IF .ENTRYCDQFSL_UIC] EQL 0 ! Default record 

i i 4 THEN EGIN 

1 18 DEFAULT_QUOTA = sENTRYCOQE SL PERMQUOTA); 

1 DEFAULT OVERDRAFT = ,ENTRYCDOFSL_OVERDRAFTJ; 

1016 ELSE 

101 BEGIN 

1018 LAST_UIC = .ENTRYCDQFSL_UIC); 

1019 COUNT _QUOTAC .ENTRYCDGFSC UIC, -ENTRYCDQFS$L_USAGEJ, 0); 

18 1 ‘ END; 

10 : END; 

1023 4 END; 

1958 

\3 $ ? Deaccess the quota file. 

1028 4 $a10W( 

1029 4 FUNC=10$_DEACCESS, 

1030 4 CHAN=. CHANNEL); 

1 or 

10 : 

1982 

1036 Get the current time. Also, convert it to ODS-1 format. 

10 $ $GETTIM(TIMADR=CURRENT_ TIME); 

1038 SASCTIM(TIMBUF=UPLIT(23, BUFFER), TIMADR=CURRENT_TIME); 

103 CURRENT_TIME_1(0,0,16,0) = .BUFFERCO, +1640 ;  T Output dD 

1040 2 CURRENT-TIME-1C2, +26, = .BUFFERC3, +94, : | Output MMM 

1041 CURRENT-TIME-105,0,16,0] = .BUFFER 6,0]; |! Output YY 

1 : CURRENT-TIME-107.0.16.0] = .BUFFER 12.6.16, ; |§ Output HH 

104 CURRENT-TIME-1(9,0,16,0) = .BUFFERL15,0,16,0J; | Output MM 

1044 2 CURRENT-TIME 111 6 14,0) = .BUFFERCL18,0,16,0); | Output $$ 

1045 IF .CURRENT_TIME_106,0.8,0) EQL %C' ' fHEN CURRENT_TIME_1L0,0,8,0] = %C'0'; 

1969 

} rt Scan the index files. 

30 SCAN_INDEX(); 

' 

} 38 : Check for allocation errors. 

1055 2 INCR RVN FROM 1 TO .VOLUME_COUNT DO 

1 36 BEGIN 

1 3 LOCAL 

1058 SMAP REF BITVECTOR; ! Pointer to old storage bitmap 
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! 
1 
CHSFILL(O, F1BS¢ LENGTH FIB); 
FIBCFIBSL_ACCTLI = sACCTLE.RVNE 1}: 
FIBLFIBSW-FID_NUM] = FIDSC_BITMAP; 
FIBLFIBSW-FID-SEQ) = FIDSC-BITMAP; 
FIBCFIBSW-FID-RVN) = .RVN; 
STATUS = $0100 
FUNC=10$_ACCESS OR IOSM_ACCESS, 
CHAN=. CHANNEL, 
10SB=10SB 
P1=F1B_DESC); 
IF .STATUS "THEN STATUS = .10SBC0]; 
IF NOT STATUS 


SIGNAL(VERIFYS_OPENBITMAP, 1, .RVN, .STATUS); 


: Allocate space for copy of old storage bitmap. 
STATUS = LIBSGET_VM(XZREF(.SMAP_SIZEC.RVN-1] * 512), SMAP); 
IF NOT .STATUS TREN SIGNAL(VERTFYS$_ALLOCMEM, 0, STATUS); 
Read old storage bitmap. 
INCR VBN FROM 0 TO .SMAP_SIZEC.RVN-1] - 1 BY 127 DO 
BEGIN 
LOCAL 
THIS_BLOCKS; ! Count of blocks to read on current iteration 
Compute number of blocks to read this time. 
THIS BLOCKS = MINUC 
.SMAP_SIZEL.RVN-1) - .VBN); 
! Read the blocks. If this fails, re-execute the read one block 
at a time noting the blocks that fail. 


STAT Once OE RE ADVBLK 
= ° 
AN=. CHANNE 


CH . ° 
10SB=10SB, 

=.$ + .VBN * 218 
Ps: THIS BLOCKS * 512, 
P3=2 + .VBN); 


IF .STATUS THEN STATUS = .10SBCO); 
IF NOT .STATUS 
THEN 

BEGIN 

INCR 


ms FROM 0 TO .THIS_BLOCKS~-1 DO 


vuvvTUU 


ee ce ee ee ee a et ed dd ts od ed 4 St a tt 8 ws = — 2 — 4 9 4 2) — 9 2 = 3 
me ee ek ee a a a at td a 8 + dh a wd 2 = 2) td — 4 — = = 2d 9 2 os 2 —s 5 2 3 4 3 Ss 2 tt 


NYE LAPNA DAD HANAN NALIN IID EE EEE EEE. EE AAA AAA AAAI SS 
M—CO@ 


AMAA ER RRR RRR RE 


Oo GOODS 
MEW OODONOAUE WIN O OONAUE WN $$ O OONOUE WIN SOO ONOULS win 


me ee a ek a a a at td ik ad ak td 2 tt = = = = 2 2 2 = 2 2 a 2 1 
me a a kk ek et at at od = = = = =) os ts I SF YH SF SS SY SS SB Ss SS Ss SS YS SS SS SS SS ss SS 2 SS SS SS SS SS SSS SO 


PEASE SITTIN NNN NN EE SIP AA AA AA AAAI AAA 


° 
° 
. 
a 
= 
° 
. 
° 
. 
° 
° 
@ 
° 
° 
* 
e 
. 
° 
. 
° 
° 
° 
a 
° 
° 
. 
o 
. 
e 
. 
° 
* 
° 
° 
- 
° 
© 
° 
. 
° 
2 
° 
. 
o 
8 
ao 
° 
e 
. 
° 
. 
° 
. 
° 
© 
e 
. 
° 
. 
° 
© 
e 
oo 
° 
~ 
e 
. 
° 
. 
° 
* 
° 
© 
oe 
. 
° 
° 
° 
. 
2 
. 
° 
© 
° 
2 
° 
2 
e 
° 
° 
. 
° 
° 
£ 
° 
© 
. 
° 
. 
° 
» 
aa 
© 
° 
. 
o 
° 
e 
. 
9 
. 
° 


STATUS = $010uK 
FUNC=10$_READVBLK, 
CHAN=. CHANNEL, 
10S8=10SB, 
Piz soap + .VBN * 512 + .XVBN * 512, 
P2=512, 


P5=2 + .VBN + .XVBN); 
IF .STATUS THEN STATUS = .10SBC0J; 
4 NOT .STATUS 


EN 
SIGNAL ( 
‘epienee, 
+ .VBN + .XVBN, 
»RVN 
STATUS); 
END; 
END; 
END; 


} Match ‘‘valid’’ storage bitmap against old, reporting discrepancies. 
iNCR J FROM 0 TO .SMAP_SIZEC.RVN-1]*512*8-1 DO 
fg wrl.d3 NEQ .BITVECTORC.VSMAPC.RVN-1), .JJ 


BEGIN 
a 


INCR K FROM .J TO .SMAP_SIZEC.RVN-1]*512*8-1 DO 
BEGIN 


~SMAPC.K) EQL .BITVECTORE.VSMAPC.RVN-1], .KJ 
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-KJ OR 
-BITVECTORE.VSMAPC.RVN-1), .K] NEQ .BITVECTORC.VSMAPC.RVN-1), .JJ 


N 
EXITLOOP; 
KK eK; 
END; 
SIGNAL ( 
(IF .SMAPC.J) 
THEN VERIFY$_ALLOCSET 
‘ ELSE VERIFY$~ALLOCCLR), 
.J * .CLUSTER FACTORC RVN-1), 
(KK + 1) ® .CLUSTER_FACTORL.RVN-1) = 1, 
.RVN): 
J = KK; 
END; 


' Match ‘valid’ storage bitmap against new, reporting discrepancies. These 
! arise from lost extension headers. 


ny 


VERIFY 
V 
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hen mee HEREcIORE RUERY MINER Oe 


1 
INCR J FROM 0 TO .SMAP_SIZEC.RVN-1]*512*8-1 DO 
IF <BITVECTORC. .NSMAPL.RVN-1], .J] NEQ .BITVECTORC.VSMAPL.RVN-1], .uJ 


ePruw 


INCR K FROM .J TO .SMAP_SIZEC.RVN-1]*512*8-1 DO 
BEGIN 


-BITVECTORC.NSMAPC.RVN=1), .K) EQL L Bit 


RC.VSMAP yee oad OR 
sBITVECTORE .VSMAPC.RVN=-1], .KJ NEQ 1J, oJ 


ITVECTO 
ITVECTORE.VSMAPC ..RVN- 


EXITLOOP; 
END; citi 
SIGNAL ( 
ERIFYS_ALLOCEXT, 
.J te | ee FACTORC.RVN-1), 
KK + CLUSTER _FACTORL. RVN-1) - 1, 
«RVN); 
J = .KK; 
END; 


: Free space for copy of old storage bitmap. 
STATUS = LIBSFREE_VM(ZREF(.SMAP_SIZEL.RVN-1] * 512) he 
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8 IF NOT .STATUS THEN SIGNAL (VERIFYS_ FREEMEM, 0, .STATUS) 

0 

\ : Write new storage bitmap. 

1 iF DO_REPAIR(NO_CONF IRM) 

1 THEN 

1 BEGIN 

1 INCR VBN FROM 0 TO .SMAP_SIZEC.RVN-1] - 1 BY 127 DO 

1 BEGIN 

1 LOCAL 

} THIS BLOCKS; ! Count of blocks to write on current iteration 


Compute number of blocks to write this time. 
iHIS qBpOcks = MINU( 
VEAP SIZEC.RVN-1) - .VBN); 


! Write the blocks. If this fails, re-execute the write one block 
i at a time noting the blocks that fail. 
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! 
STATUS = $a10W( 
FUNC=10$_WRITEVBLK, 
CHAN=. CHANNEL, 


10SB=10SB 

Pi=.NSMAPC.RVN-1) + .VBN * 512, 
Pee THIS BLOCKS * 512, 

P3=2 + .0 


vuvv0vUU 
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: If required, rescan the index files to locate multiple allocation. 
iF .DUAL_ALLOC_FOUND 
THEN 


BEGIN 
DUAL_ALLOC_PASS = TRUE; 
SCANLINDEXT) ; 


: Scan the extension header bitmap looking for lost extension headers. 
INCR RVN FROM 1 TO .VOLUME_COUNT DO 


1233 1230 

1234 1231 

1235 1 : 

1 6 1 

1 1234 

1238 1235 

1239 1 : 

1240 1 BN); 

1241 1238 IF .STATUS THEN STATUS = .10SBC0); 
1 4¢ 1239 IF NOT .STATUS 

124 1240 § THEN 

1244 1041 6 BEGIN 

1245 1 j $ INCR XVBN FROM 0 TO .THIS_BLOCKS-1 DO 
24g 1 BEGIN 

1247 P1244 7 STATUS = $Q10W( 

1248 P1245 7 FUNC=10$_WRITEVBLK, 
1249 P 1246 7 CHAN=. CHANNEL, 

1250 P1247 7 10SB=10SB 

1251 P1248 7 P1=.NSMAPL.RVN-1] + .VBN * 512 + .XVBN * 512, 
1 3¢ P1249 7 Pe=dle, 

125 1250 7 P3=2 + .VBN + .XVBN); 
1254 1251 7 IF .STATUS THEN STATUS = .10SBC0]; 
1255 1 3 7 IF NOT .STATUS 

1256 1253 7 THEN 

1957 1254 7 SIGNAL ( 

1258 1255 7 VERIFY$_WRITESBMAP, 
1259 1256 7 g. 

1260 1257 7 + .VBN + .XVBN, 
1261 1258 7 .RVN 

1 6¢ 1259 7 *STATUS); 

126 1260 6 END; 

1264 1261 § END; 

1265 126¢ 4 END; 

1266 126 END; 

1267 1264 

1268 1265 

1269 1266 ! Deaccess bitmap file. 

1270 1267 i 

1271 P 1268 10w< 

4 P 1269 FUNC=10$_DEACCESS, 

127 1270 CHAN=. CHANNEL) ; 

1274 1271 END; 

1275 1 e 

127 127 

127 1274 

1 1275 

1 127 

1 127 

1 127 

1 127 

1 1280 

} HH 

1 1 

1 1284 

1 1 5 

1 1286 
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Compute number of blocks to write this time. 


ints Bpoeks = MINU( 
Viakp _SIZEC.RVN-1] = .VBN); 


_ 
& 
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! Write the blocks. If this fails, re-execute the write one block 
at a time noting the blocks that fail. 


STATUS = a 
Srey - WRITEVBLK, 
CHANNEL , 


=ibse. we + ,VBN * 512, 
IS p Oe * 512, 
TH 
TUS 


PEA EXPEDIA & 
vuvuvVvU 


MAP FESETCORVN=1) + VBN); 
en Crarus = "108BC03; 


GIN 
INCR we FROM 0 TO .THIS_BLOCKS=-1 DO 


STATUS = $Q10W( 
FUNC=10$_ WRITEVBLK, 
CHAN, CHANNEL, 
10SB=i0SB, 
ole + alg “RVN-1] + .VBN * 512 + .XVBN ® 512, 


Pp = BITMAP_OFFSETC. RVN=1] + .VBN + .XVBN); 
.STATUS THEN STATUS = .10SBCO}; 
NoT eal us 


SIGNAL ( 
VERIFYS_WRITEIBMAP, 


BITMAP _OFFSETC.RVN-1) + .VBN + .XVBN, 
SyATUS) ; 
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END; 
END; 
END; 
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Deaccess the index file. 


vv 


a 10$_DEACCESS 
= o 
CHAN=. CHANNEL); 


OOOO O00 0009 09 09 09 09. 09 09 00 I SIN SINS SID DAO IIIT 
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END; 
3 
rh 4 Scan all directories on all volumes. 
40¢ 99 @ INCR RVN FROM 1 TO .VOLUME_COUNT DO 
40 00 BEGIN 
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VERIFY Main module 1b-s6 -1984 02:15: AX-11 Bliss-32 V4.0-74 P 
v04-000 12-80-1382 96:39:98 VERIFY SREIVERIFY O30¢4 oy (38 
04 DIR_SCAN(.RVN); 
8? END; 
o7 
88 8 } Scan the lost file bitmap looking for lost files. 
19 8 if »DIRECTORY_ERROR THEN SIGNAL(VERIFYS_LOSTSCAN); 
1 0 
18 ! woos} aaa 1 TO .VOLUME_COUNT DO 
\3 } sn POOR 1 TO .MAXFILIDXC.RVN-1)+1 DO 
i3 1 IF .BITVECTORC.LOSTMAPC.RVN-1)], .NUM-1) 
18 1 THEN 
19 BEGIN 
$ LOCAL 
32 FILE_ID: BBLOCKCFIDSC_LENGTH]; ! Local copy of file ID 
34 Get the file ID. 
6 FILE_IDCFIDSW_NUM) = .NUM; 
7 FILE_IDCFIDS$SB_NMX] = .NUM<16,8>; 
8 FILE-IDCFID$W-SEQ) = .VECTORC.SEQMAPL.RVN-1], .NUM-1 ;,WORD]; 
$3 FILE_IDCFIDSB_RVN) = .RVN; 
1 
32 Gererate usage file entry for the lost file if requested. 


tous 


iF ;,QUALCQUAL _USAG) THEN IF READ_HEADER(FILE_ID, BUFFER_2) 
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1 
1 
1 
3 
35 3 
36 3 BEGIN 
37 : CAL 
38 3 FILENAME: VECTORCFI2$S_FILENAME + FI2$S_FILENAMEXT + 1, BYTE], 
40 3 IDENT_AREA: REF BBLOCK; ! Pointer to ident area 
4 3 
t3 4 IDENT_AREA = BUFFER_2 + ,BUFFER_2CFH2$B_IDOFFSETI*2; 
4 4 IF .STRUCTURE_LEVELEQL 2 
45 4 THEN 
46 4 BEGIN 
4 4 CHSCOPY ( 
48 4 F1¢8$_FILENARE, IDENT_AREALF 12$T_F ILENAME), 
30 4 FI2$SS_FILENAME + FI2$S_FILENAMEXT + 1, FILENAME); 
¢ 4 IF (.BUFFER_2CFH2$B_MPOFFSET] - .BUFFER acFHese IDOFFSET]) * 2 
33 5 gEQU SBYTEOFFSET(FI2ST_FILENAMEXT) + F12$S_FILENAMEXT 
55 5 CHSMOVE ( 
36 3 FI $5_F ILENAMEXT, 
5 IDENT AREATE $1 FILENAMEXTI, 
8 5 FILENAMECF 12$S_FILENAME)); 
60 2 LENGTH = 


Wr 
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1S |9Be §8:39:9 VERIFY. SRESVERIFY 832s ie 


CHSFIND_CH(FI2$S_FILENAME + FI2$S_FILENAMEXT + 1, FILENAME, %C° °) 
- FILENAME; 
END 
ELSE 
BEGIN 
LENGTH = MAKE STRING( 
IDENT _AREACF11$W_FILENAME] - SBYTEOFFSET(NMBSW_NAME), 
FILENAME) ; 
D; 
USAGE _BUFFERCUSGSB_TYPE] = USGSK_FILE; 
USAGE BUF FERCUSGS$L_FILEOWNER) = =VECTORE. OWNERE=RVN-1 3 wye=1] 
USAGE BUF FERCUSGSL “ALLOCATED = VECTOR PALLOCATIONC .RVN=1 1 uM-11; 
SAGE BUFFERCUSGS$L_USED) = VECTOR -USAGEL.RVN=1], .NUM=1); 
USAGE “BUFFER USGSW_DIR_LENJ ; 
SDESCRIPTOR('CI!AF") 
| pbbegenate Sec _LEN], 
ZALLO CATION (USAGE BUFFER) - S$BYTEOFFSET(USGST_FILESPEC), 
aeARe BUF FERCUSGST_FILESPEC]), 
~ LENGTH FILENAME); 
USAGE_RABCRABSW yistd iby TEOFFSET(USGST_FILESPEC) + .USAGE_BUF FERCUSGSW_SPEC_LENJ; 


IF_NOT SPUT(RAB= 
THEN 


FILE_E 
vERIFYS FACILITY + SHRS_WRITEERR + STSSK_SEVERE, 


GE_FAB 
~~ -USAGE_RABLRABSL_STSJ, .USAGE_RABCRABSL_STV)); 
Report the lost file if no errors occurred in the directory scan. 
IF NOT .DIRECTORY_ERROR 
THEN 


BEGIN 
HEADER ERROR(VERIFY$_LOSTHEADER, FILE_ID, 0); 
STATUS = DO_REPATR(ALLOW_DELETE) ) 


if " 
ENTER_WORK ( 
(IF =STATUSc1,1> 
THEN WRK_K_DELETE 
ELSE WRK_K_ENTER), 
FILE_ID); 
END; 
END; 


: Scan the quota table looking for quota errors. 
if .QUOTA_ACTIVE 
THEN 
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SESSERLES 


12 
cena: IE$019RE GG:39:90 YOGA} SLL488 Y49538% eee 


16 IF .STATUS THEN STATUS = - 10sBC0); 

1 F ~STATUS THEN SIGNAL(VERIFY$_UNLKVOL, 0, .STATUS); 
1 QUALCQUAL_REPA) = FALSE; 

! END; 

16 4 

: 5 Do delayed repairs. 

16 $ PROCESS_WORK(); 

18 5 

19e4 Disable the quota file, if it was disabled before we began processing. 
1648 if .QUOTA_DISABLE 

164 THEN 

1644 BEGIN 

1645 CHSFILL(O, FIBSC_LENGTH, FIB); 

1646 FIBCFIBSW_CNTRLFONC) = F1B$C_OSA_QUOTA; 

164 STATUS = $QJ0W( 

1648 FUNC=10$_ACPCONTROL, 

1649 CHAN=. CHANNEL, 

1650 10SB8=10SB 

1651 P1=F 1B DESC); 

165¢ IF .STATUS THEN STATUS = .1IOSBCO); 

165 IF NOT .STATUS 

1654 THEN 

1655 SIGNAL (VERIFY$_DSAQUOTA, 0, .STATUS); 

1696 QUOTA_DISABLE = FALSE; 

165 END; 

138 

1660 .. a9 necaseery.. deaccess a file that is accessed on the alternate channel. 
1961 Then, deassign the channels to the device. 

1868 ACCESS. INDEX_2(0); 

1664 SDASSGN(CHAN=. CHANNEL) ; 

1665 SDASSGN(CHAN=. CHANNEL _2); 

186? 

1098 Close the output Listing file. 

1870 if .QUALCQUAL_LIST 

167¢ IF NOT SCLOSE(FAB=LIST_FAB) 

167 H 

1674 FILE_ERROR( 

1675 VERIFYS$_FACILITY*16 + SHRS$_CLOSEOUT + STSSK_SEVERE, 
1676 LIST F 

167 -LIST_FABCFABSL_STSJ, .LIST_FABLFABSL_STV); 
1899 

19 : Close the output usage file. 

16 3 if . QUAL CQUAL_USAG) 

16 IF NOT SCLOSE(FAB=USAGE_F AB) 

1685 THEN 


jcichaees:: 1: Sry age 99:27:93 4 Wealrvesne SveniFy 03074 Pave 


-000 
3) 16 FILE_ERROR( 
: ist 1 ul RIE VE LACIE TIONG + SHRS_CLOSEOUT + STSSK_SEVERE, 
; 1936 19 5 USAGE FASLFABSL_STSI, - USAGE _FABCFABSL_STVJ); 
: 1694 1691 
1696 1830 Return to operating system. 
3; 169 1694 SS$_NORMAL 
; 1698 1695 END; 


“Tarte VERIFY Main module 
[IDENT \V04=000\ 


-PSECT DATA,NOEXE,2 


68 QO QUAL: .BLKB 4 
0004 QUAL_DEV_DESC: 


“BLKB 8 
0000C QUAL_LIST DESC: ‘ 
00014 QUAL_USAG_DESC: . 
0001C LIST_FAB: ss 
0006C LIST_RAB: - 
00080 LIST_NAM: 

.BLKB 96 
00110 LIST_RSA: 

LKB 255 
0020 "BLKB 1 
00210 LIST DESC: , 
00218 LIST BUFFER: te 
0029C USAGE_FAB: 
LKB 80 
002EC USAGE_RAB: 

-BLKB 68 
00330 USAGE_NAM: me 
00390 USAGE_RSA: 

.BLKB 255 

-BLKB 


oougt 
490 USAGE _BUFFER: : 
0637 *BLKB 
ee CHANNEL_ its 
063 CHANNEL : Bt KB t 
ite § CHANNEL_2: ? 
00644 CHAN2_RVN: 

.BLKB 4 
00648 TOTAL_SIZE: 


VERIFY 
v04-000 


Main module 


K 12 
1 3ep=198e 93:37:93 | Weatry°sreiventy 93074 
0064C DUAL _aLLoee BUND : 
00650 DUAL -ALLOC PASS: 
00654 DIRECTORY arROR: 
00658 OLD_CTRL_MASK: 
0065C EXIT_HAND beet: 
B0678 Shata_actives 
“BLK 
0067¢ QUOTA_DISABLE : 
00680 DEFAULT QUOTA: 
00684 DEFAULT_OVERDRAFT: 
00688 LAST_UIC: 
aC Dar : “BLKB 


00 
QO6A 
08 
08 
08 

8 

8 

8 
08 
08 
08 


>>Pr> YOOOD 3 4 


LKB 
8 Age I 10SB: “BLEB 
8A70 VOLUME =O 


LK 
O8A74 STRUCTURE LEVEL: 


L 
Beare HON gt ~BLKB 
BaA7C otIsts 


08A84 CURRENT ihe: 
O8A8C CURRENT_TIME 1: 


oo vie o wo ff fF COMO WCHO WEWOU WS 


Senge DEVICE _pésts 
~ .BLK 
OBAAS DEVICE_NARE : 
OBAB4 DEVICE CHAR: | 
O8AC4 PER_VOLUME_BEG: 


—_ 
ce Oo 


P 
wo 


RIF j o o Seee hs 
VERIFY) sain module 1$-Sep-1964 99:15:20 yayet! Liegc32 v4.02743 
gpa C4 ACCTL: ate 
Ac8 IMAP_ SIZE: 
OBACC MAXFILIDX: 
ADO IMAP: BLK 
RM 


R:_ .BLKB 
AEC ALLOCATION: 


~BLKB 
BAFO USAGE: .BLKB 
BAF4 SMAP_SIZE: 


-BLK 
BAF8 VSMAP: .BLKB 
SAFC NSMAP:  .BLKB 
08800 MULT SHAP: Sas oe 
08804 CLUSTER -FACTOR: 
08B08 HEADER att 
O8B0C BITMAP OFFSET: 
-BLKB 


L 
8810 EOF: -BLKB 
8B14 PER _VOLUME END: 


31 3B 52 49 44 2— 54 53 4F 4C 53 59 53 08B14 LOST_NAME: 


Wr CO FR FF HF HF SHEE SH KHHKSSSSE SF FO 


ASCII \SYSLOST.DIR;1\ ; 
08821 “BLK 
31 38 53 59 53 2— 41 54 4F 55 51 08B24 QFI_NAME: 
<ASCII \QUOTA.SYS;1\ : 
.PSECT CODE,NOWRT,2 
30 30 30 30 30 30 00000 P.AAB: .ASCII \000000\ : 
0 “BLKB 2 
0 9000 0 P.AAA: .LONG 6 
000 “ADDRESS P.AAB 
00 10 P.AAC: .WORD 4 
1 “ADDRESS RECATTR 
00 i 


P.AAE: .LONG 64 
‘tee FIB 

P.AAF : 32 

“ADDRESS: QF 


«LONG 
ADDRESS LOST_NAME 


0 
000000 6 
0 $" $3 
4 
000000" 
4 “WORD 4, 
99 . “ADDRESS UCHAR 
; LONG Q 
000A 4 P.AAD: <WORD 512, 10 
' 8 “ADDRESS HDR_BUFFER 
0 LONG 0 


Pete te Se Se Se See Ge Ge Ge Ge Se Se Ge Be 


yo Nh mew IRecHO8 ABEND Wl 


1 Bliss-32 v4.0-74 p 4 
VERIFY SREIVERIPY oS 204 ae 


Bo9p0006" ‘f a “LON ss OF! NAME 
43 49 56 4 P.AAJ: -ASCI \DEVICE\ 
00 6, P.AAL: PONG ; 
¢ “ADDRESS P.AAJ : 
00 4 P.AAK: .W : 
99 - ADDRESS bEVICE_CHAR 
0 “WORD 16, 50 : 
00000000" 8 y 6 ADDRESS DEVICE_NAME, DEVICE_DESC : 
54 53 & ‘ rc P.AAM: .ASCII \LIST\ : 
900 900 P.AAL: .L ; 
00° “ADDRESS P.AAM : 
54 53 49 4 P.AAO: ASCII \LIST\ : 
$8 880086" A cage ORESS 'P AAO ; 
45 47 41 8 39 0094 P.AAQ: “ASCII \USAGE\ : 
90000005 oH P.AAP: . ADDRESS 
45 47 41 i 99 DOAK P.AAS: 7 ASCII \USAGE\ 
00000005 OOOAC P.AAR: “BLK 
00000000" 00B0 “ADDRESS P.AAS 
49 46 4E GF 4 0084 P.AAU: “ASCII \CONF IRM\ 
00000007 000BC P.AAT: .LONG ‘ 
00090009" 0c “ADDRESS P 
SF 44 41 45 5 O0C4 P.AAW: ASCII \READ. CHECK\ 
0000000 $050 P.AAV: .LONG 10 
00090009" 00D4 “ADDRESS P.AAW ; 
49 41 50 45 52 00008 P.AAY: ASCII \REPAIR\ ; 
OODE “BLKB 2 
90000006 O0EO P.AAX: <LONG 6 ; 
0090 00° OE “ADDRESS P.AAY : 
4C 46 49 5 4 26 Eg P.AAZ: ASCII \VERIFY.LIS\ ; 
50 4F 34 59 OOF P.ABA: .ASCII \SYSSOUTPUT:\ : 
67 74 73 69 &C 21 OOOFD P.ABB: -<ASCII \!Listing of index file on !AS!/!2D\ : 
- 0 66 so oF SF Obits 
41 45 47 4 53 ; 11f P.ABC: .ASCII \USAGE.DAT\ : 
4D 43 24 «5 : P. “ASCII \S¥S COMMAND \ : 
00 09 134 P.ABD: .LONG 11 ; 
0 Q° 1 “ADDRESS P.ABE F 
0 1 13C P.ABF: .LONG 23 : 
90" 14 “ADDRESS : FFER : 
46 41 21 5D 5B 144 P.ABH: . ASCII \CJ!AF\ : 
re 14C P.ABG: LONG ; 
' 13 “ADDRESS P.ABH : 
1 154 P.ABI: . ; 
000' 00158 “ADDRESS USAGE_BUFFER+17 : 


N 12 
aes HERETO GERD RGIS Po 


HDR_BUFFER= BUFFER+51 

HDR~BUF FER_2= BUF FER+1024 

MF D-DESCs P.AAA 

FAT-ATR_DESC= P. AAC 

HDR-ATR-DESC= P. AAD 

FIB-DEST= P.AAE 

DOF “DESC= P. AAF 

LOST _DESC= P. AAG 

OF1 BESc= P.AAH 

$RMS_PTR= LIST_FAB 

$RMS"PTR= LIST"NAM 

SRMS“PTR= LIST"FAB 

RMS -PTR= LIST"RAB 

$RMS~PTR= LIST "NAM 

SRMS_PTR= USAGE_F AB 

$RMS~PTR= USAGE RAB 

SRMS~PTR= USAGE NAM 
.EXTRN CHECKSUM, CHECKS 
-EXTRN LEFT_ONE, MAKE_ STRING 
TEXTRN CLISGET VALUE, CLISPRESENT 
-EXTRN LIBSDISABLE_CTRL 
“EXTRN LIBSENABLE CTRL 
SEXTRN LIBSFREE VA, LIBSGET_COMMAND 
“EXTRN LIBSGET 0M, LIBSSCOPY_R_DX 
SEXTRN LIBS$SIGRAL, VER leys FACTLITY 
-EXTRN VERIFY$_ABORT, VERIFYS « ADDQUOTA 
*EXTRN VERIFYSCACLOCELR 
SEXTRN VERIFY$-ALLOCEXT 
-EXTRN VERIFYS-ALLOCMEM 
-EXTRN VERIFYS$-ALLOCSET 
“EXTRN VERIFY$~ALTIHDBAD 
*EXTRN VERIFYS"ASSIGN. | VERIFY$_BACKLINK 
“EXTRN VERIFY$~BADBITMA 
-EXTRN VERIFYS-BADDIR, VERIFY$_BADDIRENT 
“EXTRN VERIFY$-BADEFBLK 
-EXTRN VERIFY$~BADHEADER 
“EXTRN VERIFY$~BADHIBLK 
“EXTRN VERIFY$~BBLHEADER 
“EXTRN VERIFY$~CHKAL THOME 
SEXTRN VERIFY$~CHKPRIHOME 
-EXTRN VERIFYS$"CHKSCB, VERIFY$_CREATELOST 
SEXTRN VERIFYS$-DELETE, VERIFYS$-DELHEADER 
EXTRN VERIFYS$-DIR RNAME 
*EXTRN VERIEYS_DSAQUOTA 
TEXTRN VERIFYS~ENAQUOTA 
“EXTRN VERIFYS-ENTERLOST 
TEXTRN VERIFYS—F INDHOME 
SEXTRN VERIFYS~FINDIHD 
“EXTRN VERIFYS-FREEMEM 
-EXTRN VERIFYS~FUTBAKDAT 
SEXTRN VERIFYS-FUTCREDAT 
-EXTRN VERIFYS$"FUTREVDAT 
“EXTRN VERIFYS-GETDVI, VERIFY$_INCQUOTA 
*EXTRN VERIFYSTINVDEVICE 
TEXTRN VERIFYS~INVEXTBACK 
SEXTRN VERIFYS"INVEXTF ID 
“EXTRN VERIFYS~INVEXTHDR 
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lLiss- 
SRCIJVERIFY.B32; 


<<<<c<ccccccecccecccccccceccccccccc 


cho << << << CMM MMM MMMM MMMMmMmmmmmmmmmmmmmrnrmricnenicenicvie yy 


SB 
WNER 

SYSS$GETDVI 
xe. SYSSCONNECT 
N, SYS$Q10W 


R3 R4.R5.R6-R7.RB-RI-R10,R11 
L“DEV_DESC+3 

V~DESC 

$6 Gey VAL 

), #80, SRMS_PTR 


a3. $i SRMS_PTR 
‘Ud 


RBBVOBVBIMY YMNMNNNNC<c< 


One 


$RMS_PTRT 
SRAS“PIRA3 
LIST_NAM> $RMS_PTR+40 
GUAL =PEV “pesca, “Bas PTR+44 
SC. RMS PTR+52 
et} #96, SRMS. PTR 


P 36 
sh (4) 


; 0489 
388 


0536 


0539 


<< 


1 1984 02:15: AX-11 Bliss-32 V4.0-74 Page 37 
1 138 96:33:98 VERIFY. SRC VERINY 93064 ° 
00000000' EF 6002 8F B0 MOV #24578, $RMS_PTR ; 
09900009" EF 5 E a00 MNEG Ai $RMS_PTRT : 
00000" EF 9000000" EF 9E 43 MOVAB LI$T_RSA> $RMS_PTR+12 : 
0 ' FF F 000 PUSHAB LIST FA : 
000000006 00 1 § F CALLS #1, SYSSPARSE ; 
00000000" FF ? 36 ot, §T_NAM+11 : 
00060047  8F 00000000° FE 0 nH BIT IST_NAM#52, #393287 : 
00000000" EF 9F 00 AB 1$: PUSHAB QUAL_DEV_DESC ; 
000000006 BF bp O08 PuStt  SVERIFYS_ INVDEVICE ; 
000000006 00 3 FB 83 CALLS +. LIBSSIGNAL : 
90000000" EF 9F OO0CO 2S: PUSHAB QUAL_DEV_DESC F 
0000000" EF 9F 000C6 PUSHAB LIST-RSA : 
Oc AE 00000000' EF 9A 000CC MOVZBL LIST NAM+57, 12(SP) : 
0c AE 9F 00004 USHAB 12 (SP) : 
000000006 00 03 FB 9007 CALLS #3, LIBSSCOPY_R_DX : 
00000000" EF D4 OOODE CLRL. DEVICE_DESC ; 
00000000" €F 00000000' Er 3 QO0E4 NOVAB DEVICE NAME , DEVICE_DESC+4 : 
7E 7C OOOF1 CLRQ  =(SP) : 
FEOD CF 9F OO0F3 PUSHAB P.AAK ; 
00000000' cE 9F O00F7 PUSHAB QUAL_DEV_DESC : 
—E 7C O000FD CLRQ = =(S : 
000000006 00 08 FB OOOFF CALLS #8, SYSSGETDVI ; 
59 5 D0 00106 MOVL . US ; 
13 59 £8 00109 BLBS "TUS, 3$ : 
59 DD 0010¢ PUSHL §$. JUS : 
01 DD 0010E PUSHL #1 ; 
01 DD 00110 PUSHL #1 : 
000000006 8F ODD 00112 PUSHL #VERIFY$_GETDVI : 
000000006 ir FB 0011 CALLS #4, LIBSSIGNAL : 
15 00000000" EF 4 £0 OO11F 3$: BBS #4, DEVICE _CHAR+3, 4$ ; 
00000000' FF OF 00127 PUSHAB QUAL_DEV_DESC F 
1 OD 0012D PUSHL : 
000000006 8F DD 0O12F PUSHL #VERIFY$_INVDEVICE : 
000000006 00 03 FB 00135 CALLS #3, LIBSSIGNAL : 
00000000' EF 2 90 0013C 4s: MOVE #2. QUAL_LIST_DESC+3 ; 
FDDD CF 9F 0014 PUSHAB P.AAL : 
000000006 00 o1 FB 0014 CALLS #1, CLISPRESENT : 
1 0 £9 0014E BLBC = RO. S$ : 
00000000" EF 02 88 00151 BISB2 #2. QUAL : 
00000000" EF F 4 4 PUSHAB QUAL LIST_DESC : 
000000006 00 Oe EB D169 CALLS a3. CLISGET_VALUE : 
00000000" EF 9 O16 5$: MOVE #2, QUAL_USAG_DESC+3 : 
FDCC CF 9F 00170 PUSHAB P.AAP : 
000000006 09 1 FB 174 CALLS #1, CLISPRESENT : 
1 2 178 BLBC RO. 6$ : 
00000000" EF 10 88 Ve BISB2 #16, QUAL : 
00000000" EF 9F 001 PUSHAB QUAL_USAG_DESC : 
FDC1 cr F 001 PUSHAB P.AA : 
000000006 2 FB 0018F CALLS #2, CLISGET_VALUE : 
FDC6 CF OF 00196 68: PUSHAB P.AAT : 
000000006 00 1 FB 19A CALLS #1, CLISPRESENT : 
00000000" EF 01 0 FO OO1A1 INSV RO. #0, #1, QUAL : 


dD 13 
VERIFY Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-742 Page 
v04=000 etiam rie ee a Get it hv a ae ee oe 2 
FDC6 CF OF OOTAA PUSHAB  P.AAV : 0610 
000000006 FB OO1A CALLS #1, CLISPRESENT : 
00000000' EF 01 88 ‘och 0 FD 188 INSV RO ae #1, QUAL F ose 
000000006 00 1 FB 001C CALLS #i, CL ISPRESENT : 
00000000" EF 01 0 FO 001C INSV. RO, #3, #1, QUAL : 
3 00000000" EF 0194 i Ibe BBS #1. QUAL, 7$ + 0616 
0050 = «8F 00 73 seanuuias 00 C O1DD 7$: MOVCS #0, (SP), #0, #80, SRMS_PTR + 0629 
0000000° EF 3808 F BO O01E9 MOVW #20483, SRMS_PTR : 
9900000 ° EF 40 8F 9A 001F2 MOVZBL "6 , SRMS_PTR+4 : 
' EF 1 90 OO1FA OvB SRMS_PTR+22 : 
0000000" EF 0200 &8F 80 0 01 MOVW 542, $RAS_PTR+29 : 
0000000" EF 02 90 0020A MOVB #2, $RMS_PTR+31 : 
00000000' EF 00000000' EF 3 00211 MOVAB LIST_NAM; $RMS_PTR+4 : 
90900000" EF 00000000" EF D 0 1¢ MOYL  QUAL“LIST_DESC#4, SRMS_PTR+44 : 
9900000 ' EF FD61 CF 3 MOVAB P.AAZ, $RAS PTR+48 : 
000000 0: EF 00000000' EF 90 00230 MOVB QUAL_LIST_DESC SRMS_PTR+52 : 
00000000" EF A 90 00 OVB #10, ~$RMS~PTR+53 : 
0044 28F 00 6E Peiblie 0 2c 0 4 MOVCS #0, (SP),"#0, #68, SRMS_PTR + 0633 
00000000" EF 4401 br 80 00 af MOVW #17409, $RMS_PTR : 
90000000" EF 9400 F 3C 0025 MOVZWL #1024, SRMS_PTR+4 : 
00000000" EF 00000000' EF 9E 00260 MOVAB  LIST_BUFFER; $RMS_PTR+40 : 
00000000" EF 00000000' FF 9E 00 6B MOV List FAB, $RMS_PTR+60 ; 
0060 8F 00 6E 0 2C 00276 MOVC #0, TSP), #0, #96, SRMS_PTR ; 0638 
00000000" EF 027D : 
00000000' EF 6002 §8F BO 00282 MOVW #24578, $RMS_PTR : 
00000000" EF 1 8E 00 88 MNEGB #1, S$RMS_PTR32 : 
00000000' EF 00000000" FF 9E 0029 MOVAB LIST_RSA> $RMS_PTR+4 ; 
00000000" EF 1 BE 00 9D MNEGB #1, SRMSPTR+1 : 
00000000" EF 00000000' EF 3E O2A4 MOVAB LIST_RSA> $RMS_PTR+12 : 
00000000' EF 9 90 AF TSTB LIST $52 : 0639 
10 ff 0 85 BNEQ 3 : 
00000000° EF 0B 90 0028 MOVB #11, LIST_FAB+52 : 0649 
00000000" EF FCD4 «6CF OSE «(00 BE MOVAB P.ABA, LIST FAB+44 > 064 
00000000' EF 84 8F 9A 00 C? 8$: MOVZBL #132, LIST _BESC > 0645 
00000000" EF 90000000" EF 9E OO2CF MOVAB LIST BUFFER, LIST_DESC+4 + 0646 
00000000' EF 9F 00 DA PUSHAB LIST~FAB > 0647 
000000006 00 1 FB 0 EQ CALLS #1, SYSSCREATE : 
18 0 E O2E BLBS RO, 9$ ; 
7E 00000000' EF 7D OOCEA Ova LIStT_FAB+8, -(SP) : 0652 
000 0 0° F OF 0 F1 PUSHAB LIST FAB > 0649 
* 8F OD F7 PUSHL #<<<VERIFY$_FACILITY@16>+4256>+4> 3; 0650 
0000v CF 4 FB OOoF CALLS #4, FILE_ERROR : 
00000000" EF 9F 9$: PUSHAB List RAB + 0653 
000000006 09 oN FB CALLS #1, SYSSCONNECT : 
1 0 E F BLBS RO, 10$ ; 
7E 99 0° EF 70 3 MOVO  LIST_RAB+8, -(SP) ; 065 
' EF 9OF 0031 PUSHAB LIST“FAB : 69 
00000* 8F DD OO31F PUSHL #<<<VERIFY$_FACILITY@16>+4256>+4> > 0656 
0000v CF 4 FB 5 CALLS #4, FILE_ERROR : 
E D4 A 108 CLRL 0 = (§P) > 0663 
00000000" EF 9F PUSHAB QUAL _DEV_DESC : 
FC6B cr F PUSHAB : 
0000v CF 3 FB CALLS #3, FAO ; 
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ae SFE GTEE RAIS. 8: Eat : Set 
03 00000000' EF . 4 i 4 11$: BBS 4 QUAL, 12$ : $6 
8F 00 6E ieee ¢ 3 128:  MOVCS #0, (SP), #0, #80, S$RMS_PTR + 0684 
9000000" EF 9603 F 80 g MOVW #20483, SRMS_PTR : 
99099 ' EF 40 BF 9A 0036 MOVZBL #64, SRMS PTR+4 : 
0000 00° EF a. gp MOVE #1, SRMS_PTR+22 : 
9900 ' EF 0200 8F : 4 MOVW {2, $RAS_PTR+29 : 
0 "EF 2 7D MOVB 2, $rms_PTR+ : 
0 6 ' EF 990000 ' EF 9 84 MOVAB USAGE_NAM, $RMS_PTR+40 : 
rh ae ‘a 6 F MOVL QUAL _OSAG _DESC+%, SRMS_PTR+44 ; 
§0090000' EF 00000000" EE 98 ooans vee El 'Gale Bese’ Sivus praese ; 
00000000" ‘EF 69 90 § AE MOVB 7. SRMS_PTR+ ¥ : 

BF 00 6E cameaena 0 2c 6 BS MOVCS #0, (SP)> #0, #68, $RMS_PTR + 0688 
00000000" EF 4401 br 80 003¢1 MOVW #17409, $RMS_PTR : 
00000000" EF 9409 F 3C OO3CA MOVZWL #1024, $RMS_PTR+4 : 
00000000" EF 00000000' EF 9€ 00303 MOVAB USAGE BUFFER, $RMS_PTR+40 3 
00000000" €F 00000000' EF 9E 00 DE USAGE FAB, $RMS_PTR+60 ; 

8F 00 6E 0 ec 44 E MOVC #0, (SP), #0, #96, SRMS_PTR 3 0693 

00000000' EF 0 FO : 
00000000" EF 600 F BO 003F MOVW #24578, $RMS_PTR : 
00000000" EF 01 BE 99 FE MNEGB #1, SRMS_PTRT : 
00000000' EF 00000000' cf 9E 0040 MOVAB USAGE_RSA, $RMS_PTR+4 ; 
00000000" EF 1 BE 00410 MNEGB #1, S$RMS_PTR+10 ; 
00000000" EF 90000000" EF 9E 00417 MOVAB USAGE_RSA, $RMS_PTR+12 : 
0000000" EF 9F 004 2 PUSHAB USA + 0694 
000000006 00 1 FB 04 CALLS #1, SYSSCREATE : 
1 0 E O42F BLBS ; 
7E 00000000' EF 7D 004 3 MOVQ = USAGE_FAB+8, -(SP) : 0699 
900000 0° EF 9F 004 PUSHAB USA : 0696 
00000000* 8F DD 6 F PUSHL #<<<VERIFY$_FACILITY@16>+4256>+4> 3: 0697 
0000v CF 04 FB 00445 CALLS #4 ; 
00000000" EF 9F 0044A 13$:  PUSHAB USAGE_R : 0700 
000000006 99 1 FB 490 CALLS #1, SYSSCONNECT : 
1 0 : 45 BLES) sR $ : 
7E 00000000' EF 7D 0045 MOVQ §-USAGE_RAB+8, -(SP) : 0705 
00000000' EF OF 00461 PUSHAB USAG : 070 
00000000* 8F DD 00467 PUSHL #<<<VERIFY$_FACILITY@16>+4256>+4> ; 070 
0000v CF 04 FB 0460 CALLS #4, FILE_ERROR ; 
E 7C 004 : 148: CLRQ -(§p) : 0711 
90000000" EF 9F 0047 PUSHAB CHANNEL ; 
0000000' EF 9F O0047A PUSHAB QUAL DEV_DESC ; 
000000006 99 4 FB 004 CALLS #4, SYSSASSIGN : 
9 g DO 004 OVL RO, STATU : 
17 E8 0048A LBS STATUS, 15$ : 0712 
9 bb 4 PUSHL STATUS ; 
00000000" EF 9F 0048F PUSHAB QUAL_DEV_DESC ; 
1 DD 004 3 PUSHL @# : 
000000006 8F DD 0049 PUSHL #VERIFY$_ASSIGN ; 
000000006 00 4 FB 0049D CALLS #4 L1BSS1GNAL ; 
(E 7C 004A4 158: CLRO.20 = ( §p : 0713 
90000000" EF 3 4A6 PUSHAB CHANNEL 2 : 
' EF 9F O04AC PUSHAB QUAL_DEV_DESC ; 


F 13 e 
-Sep- 215: AX-11 Bliss-32 V4.0-74 Page 

v A600 one 18=808-1 382 96:35:99 VERIFY. SRC VERINY 3e04 (4) 

; : . 

#4, SYSSASSIGN : 

000000006 Q 4 F 4B CALLS a4 S1ss 
§ : 4BC LBS STATUS, 16$ ; 0714 

: 9 DD 004BF PUSHL STATU ; 

00000000! oF acl PUSHAB QUAL DEV_DESC ; 

DD 

G 8F DD 004¢9 PUSHL #VERIFY$_ASSIGN 
sacnappeeess ema i Fe ab 16$: caus at wet hie : 0720 

' "  PUSHAB CHANNEL_TT : 

oouogag" FE BF gouns usa fh 3 

4 FB O04E CALLS #4, SYSSASSIGN ; 
cereals | a OR Pi. 
- ' rt}: i Ab.MASK + 0723 

os ae BUSSE’ RS RHEE RO AR Ean Mes, : 

08 AE OF ; 
000000006 00 03 FB 0500 CALLS We pf JBSDISABLE CTRL Feeee 

i if 8309 nova #3, (SP) ; 

© ow BE Bia Et ye ; 

F . 

wr tee fee Ul : 

7E 000098 f Hi OeTA MOVZWL #84, (SP) ; 

00000000" EF DD 0051F PUSHL CHANNEL TT ; 

E es $3 } CALLS nS SYS$Q10W ; 
000000006 00 gc FB 00 Wie, i 

Eas O08 mova ws. CSP) 

7E #3, 

sooo FB RE Ethan EER ast : 

20 ay 7 

7E sae f ah S328 MOVZBL hes. (SP) 

pone EB tee oe Rene 7 
OC FB 00540 CALLS #12, SYS$QIOW _ 
titdaittd oP 0000v cf 4 0354 17$: MOVAB EXIT HANDLER. EXIT HAND _DESC+4 : 9740 
SoonooD* EF er BF Hn MOVAB EXIT ESC+16, EXIT_HAND_DESC+12 O74¢ 

vee 0 EY ee, le GEN : 
00000006 00 7 5 CALL : x t ons 
: 55 ORE a ea ee a 
00460 8F . 9 habe 
one 6 OY Roy in om 

oe Pk boson ftAL | =CSP) 

F933. oF 3B PUSHAB FIB_DESC ; 

EBM Bil, Ge : 

connons HP RRS EE Fie : 

poemmeees AB eet ce bet et | 

OC FB 0058 CALLS #2, SYS$Q10W : 

000000006 00 C 


<< 


13 
VERIFY Main module 18-3¢ -1984 215: AX-11 Bliss-32 V4.0-74 P 41 
vO4-000 eet ra Bey a Ma Cry Pe og Be Po ce ww ai 
9 ") BA MOVL RO, STAT ; 
Gh 29 3 B € — §TATUS Ws : 
3 00000000' &F § C MOVZWL 10SB, STAT : 
1 3 £ ¢ LBS STATUS, 19 : 
DD OOSCA 18$:  PUSHL STATUS : 
E 04 005Cc¢ CLRL.  =(SP) : 
000000006 8F ODD cE PUSHL #VERIFY$_LOCKVOL ; 
900000006 FB 0050 CALLS #3, LIBSSIGNAL : 
0000000" EF BA D BICB2 #8. QUAL ; 
0040 28F 00 E seaeesaees.\ C : 19$: movcS #0, (SP), #0, #64, FIB : 
A 04 E CLRL NO_WRIT : 
58 0 9100 F D i MOVL @& 097408, ACCTL_O : 
99000000" EF 100 8F D F MOVL @# 0974 FIB : 
0000000" EF 00010001 F DO 00602 MOVL #65537, FIB+4 : 
00000000" EF 1 BO 00600 MOVW «= #1, F148 ; 
E p4 614 CLRL = = §P) : 
FBAE cr F 0616 PUSHAB HDR_ATR_DESC : 
E 7C iA CLRQ = = (SP) ; 
7E D4 0 1¢ CLRL = = (SP) : 
F8B2 cr 3 61 PUSHAB FIB_DESC F 
E 7C 006 CLRQ = =( SP) : 
00000000" EF 9F 00624 PUSHAB 10SB : 
7E F 9A 0062A MOVZBL #114, =(SP) : 
00000000' EF DD 006 PUSHL CHANNEL : 
E D4 006 CLRL. = (SP) : 
000000006 00 o¢ FB 006 CALLS #12, SYS$Q10W : 
59 D 006 D OVL STAT : 
07 59 : 0649 BLBC STATUS, 20$ ; 
59 00000000° EF C 9064 MOVZWL I0SB, STATUS ; 
0000025c = BF 9 D1 0064A 208:  CMPL TATUS, #604 : 
69 12 90691 BNE ; 
0040 8F 00 6E Bi Be 09 2¢ o63k MOVCS #0, (SP), #0, #64, FIB ; 
SA 1 v0 065F MOVL #1, NO_WRITE : 
58 00200000 8F D 662 MOVL wborise, ACCTL_O ; 
00000000' EF 00200000 8F DO 66 MOVL @ 09715 FIB : 
0000000" EF 00010001 F DO 00674 MOVL #65537, FIB+4 : 
0000000" EF 1 BO 0067F MOVW «6 #1, F1B+8 : 
E p4 6 CLRL 0s. = (§P) : 
F83C cr F 006 PUSHAB HDR_ATR_DESC : 
eB C CLRQ = =(SP) : 
7E 04 CLRL = = (SP) : 
F840 cr F PUSHAB FIB DESC ; 
E 7C 00694 CLRQ 0 =(SP : 
0000009 ' ti OF 00696 PUSHAB 10S : 
7E F OA 6 MOVZBL #114, -(SP) : 
00000000' ai DD 006A PUSHL CHANNEL ; 
E D4 6AG CLRL. = (SP) : 
000000006 09 F CALLS #12, SYS$QIOW : 
D AF MOVL STAT 5 : 
OA § Be BLBC STATUS, 22$ : 0797 
9 00000000' €F ¢ B MOVZWL 10SB, STATUS : 
13 9 E BC ai BLBS STATUS, 2 : 0799 
9 DD 006BF 22$ PUSHL ATUS : 
1 00 006C1 PUSHL : 
1 DD 006C3 PUSHL #1 : 


<< 


¥ ear Main module 
000000006 


sown SER 


0000000 


000000006 


mo mmma oO 


“oO 


0000Vv 


Mama 
“woo 


57 00000000" 


08 AE 
000000006 00 
i 


57 


aon" 


MmMMPSN O VWIToO 
a "TnOO Mm 


ee Fe Pte eee atte ip ie tats 
Oo 


SNIP AAA MII EY SE 
mo JSS aASSeS 


n> 


So 
pars 


NO NINO IVC FIM ODOM NOON NOD QDOOPVGNNNV1O F MVIWOM MOWMMNMnOomnNntoOmwioooOooors 
MAMMA AMO Ah MAMOO— MONO FROWN MM ODOM GOOM THR MOo HO ome 
NOSONOSCDWOCOSOSO wwe 799-900 VWNTIOIIMS 7OC9O]—VNOO NS OWN OD "ONVOMZO "YS 


AARMLAMNEOOOOM O2-OOOWVlTD Oo ©8§F8SC £000 700 “MMS "TO OW OO "WO—-DWowo 


Se QG:05:99 Yat} OhLen8,¥4- 8524 


eerie OPENINDEX 
Ae BSSIGNAL 


. on it one 


4 usage 
i BUFFERSG56. USAGE _BUFFER+1 
USAGE B 


UFFER 
SS AA 
iene USAGE. RAB+34 


AGE 

‘ i $PUT 
Bi RAB+B, -(SP) 
eyeri rvs afACILITY#4308 


y E_BEG, R6 
. R_VOLUME _END=4, R11 
5 § “VOLUME-COUNT, R7 


A 
R7, 8(SP) 
(§p) 
#3, | LIBSGET_ vm 
sritus.. 6$ 
AT TUS 
#VERIFYS ALLOCHEM 
#3, LIBSSIGNA 
» VOLUME OUNT. R? 
#0, (SP), #O, R7, a0(A) 
4, 
"Rit 
Bes 
ACCTL_9 
a 
INIT.VO VoL edATA 
Ke fer CTL 
UME count. R7 
LUOWA 


if (SP), #0, #64, FIB 
sam a 

fet 

HDR, ATR _DESC 


Fie ESC 
tsp) 
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; 0836 


; 0837 


; 0833 


0843 
08st 


0853 
0854 


34 


<< 


VERIFY Main moduie 1b-50 Sep-1 AX-11 Bliss-32 V4.0-74 P 
04-000 We~eP~ 438s PEik9:9y =| HST Obsesee ¥G-053! eee 33 
000000 F OF OO7E PUSHAB F 
7E 4 Gr ah Hs MOVZBL Hie, “s”) : 
woe Rie near : 
000000006 9 F i CALLS #12, SYSSQIOW : 
? 08 8 BEBE STATUS $s + 0864 
9 00000000' éF 5? MOVZWL 10SB, §TATUS : 
o000025c =F : bf ig 298: CHP TATUS, #6 + 0865 
0040 8F 00 ened i 2c i mOvCS #0, (SP), *, #64, FIB ; 0868 
A 1 D0 MOVL > 0869 
t 9 QOO'FF4G DE O0BEA MOVAL aa ie RVND. RO : 0870 
FC OA 009 F D 2 MOVL #2097 7 ‘eg ; 
$6000000"  ¥ iy f 09 bRee pove #63557 9871 
crass 2 cn ce 
F66B i BF 8 59 PUSHAB HDR _ATR_DESC ; 
mittee te ch 1 
F66F cr oF 0861 PUSHAB FIB_DESC : 
0000000" EF OF bone? SUSHAB 108 ; 
7E F OA OB6D MOVZBL #114, =(SP) : 
00000000" EF DD 00871 PUSHL CHANN : 
000000006 00 a 0879 Ses ais. Syssorow ; 
3 36 8 Oosee = ov “sav Fo 
98 00000000' €&F ic ° MOVZWL 10SB, $TATUS : 
1 E8 00 308: BLBS STATUS, 32$ : 0882 
0240 Ht BB 90 1$: PUSHR wn <R6,R9> 
000000006 oi DD 00896 PUSHL #VERIFYS OPENINDEX : 
000000006 00 4 FB 0 9 CALLS #4, LIBSSIGNA : 
0000v Bit beeen Rv READ HOMEBL OCK Maes 
$f 00000000" O'FF4G DE AA ROVAL ant ECTLERY oN. RO ; 0884 
56 DD es PUSHL AVN : 
0000v CF 3 FB B CALLS , INIT_VOL_DATA : 
FEE1 56 0 F BC 33$: ACBL + * #1, RVN.~28$ : 0851 
5 A E? 3 BLBC NO_WR wRife, 34s ; 0890 
OD 00000000' EF 3 £ C BBCC : 4$ : 0892 
000000006 8F DD Cp PUSHL VER niFY gNOREPAIR > 0894 
000000006 00 1 FB 008) CALLS #1, LIBSSIGNAL : 
00000000' oot tee it Be BOBO oe cag : 9500 
6b 000000 Fr E CMPL STRUCTURE “LEVEL. #2 F $308 
of | gt Bt 
0040 8F 00 6E ¢ 00 C f 35$ MOVCS #0, (SP), #0, #64, FIB > 0910 
000" EF 099 o99 ' FF OOD MOVL  @ACCTL, FIB : 0911 
titted EF 00040004 8F 8 30 MOVL 935 1k6, F18+10 : 0912 


<< 


¥ ae Main module 


00000000" 


000000006 


000000006 


000000006 


0000000' 
50 00000000" 


50 00000000° 
00000040 


5A 


EF 
F590 
FAG 
cata 
00000000' 


59 00000000' 
00000000' 
01 00000000" 
00000000' 
20 00000000' 


00000000' 


00 
59 038¢ 
14 


000000006 

00 
EF “ 
F 
= 

, 00 
50 

F 

29 40 


MMO VMIMN = MNP HOW IMIS SIM ANI TOP FT FT UT IO STI COIN I IE IO 


YS DOMMOTN LODO NOO—OWFMOONOMARAMMMMNOnN TY NO NOCOOM AT HMA HM HM 


57 
00000000° fF 
E 


OF OOWE OOF WITS FS IOMWTS 9 NNN S$ 0 OS OMIM NOOO OOVNOONOUCUW 
PON S$ MHMAO DS £9 DOGG FOG NONNOOW "WV" DWN OOD FO SMO RWMAONEO 


r 
=Sen- 


Ww 
o 
wn 


7$: 
8$: 


1984 02:15: AX-11 Bliss-32 V4.0-74 
13he 99:33:99 YoRaeveSRE Svea hE bane 
nov " of 1B+14 
PUSHAB FAT ATR DESC 
PUSHAB QFI_DESC 
PUSHAB FIB~DESC 
CLRQ. = =( SP) 
PUSHAB 1088 
MOVZBL #114, =(SP) 
trace | Steppe’ 
cats #12. syssoiou 
BLBC STATUS, 38$ 
MOVZWL 10SB, STATUS 
BLBC STATUS, 38$ 
ee 
CPB RECATTR, #1 
wee erm 
CMPW RECATTRG2, #32 
BEQL ©: 37 
CLRG = =( SP) 
CLRQ  =(SP) 
ctRa xSP) 
mova sy =(SP) 
es Sea 
CALLS wie SYS$Q10W 
MOVZWL #956, STATUS 
LBS STATUS, 39$ 
CURL ys 
PUSHL #VERIFY$_OPENQUOTA 
CALLS i LIBS$SIGNAL 
MOVL #1, QUOTA_ACTIVE 
ROTL #16, RECATTR+8, RO 
MOVAB ais 0), R11 
MINE GL #63, VON 
ROTL #16, RECATTR+8, RO 
SUBL2 : 6 
CMPL RO #6 
Bi GLE 
MOVL + *THIS_BLOCKS 
CLRO 20 = §P) 
pict «| VBR 
ASHL 49 THIS_BLOCKS, R10 
PUSHL R16 
PUSHAB BUFFER 
CLRQ = =(SP) 
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O921 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Fe Fe Se Se Se Ge Fe Ge Se Fe Ge Ge Ge Se Be Ge Se Se Se Ge Se Se Ge Ge Fe Fe Ge Be Se Fe Fe Se Fe Fe Se Ge Ge Se Se 


00000000" ff 
00000000' 4 
000000006 i 5 
A 
9 00000000' f 
A 9 
6 e 
i 
664 
7E 0200 or 
56 3 
a 
00000000" 4 
00000000' BF 
000000006 98 3 
9 
OA 
99 00000000" EF 
21 5) 
ar | 
000000006 BF 
000000006 00 4 
0 6E 0 
56 00000000" EF 42 
26 00000000° EF 
5 acanits i 
3 
i ou & 
00000000" EF oc Ag 
00000000" EF rh! 
08 4 
0000v se ; 
58 00000040 = 8F 58 
f 
7E i 


ee es | 


= 
Ww 
o 


MUMS NOS S ONONWO9 SN OMUENONOCVCO 


VOM OOP FOS WONWOM VEO MOMroowroon 


>>>>>>> >>> >>> YY rrr YY Perron 


POA MINE & HF LWW POPNINININ 2 2 


DMO S NVI OVINOMALMONIM OVNVIWOo 


oo 
es | 
ptt ttt tind ¢ % 
AFAMBSI Sooo 


SN OOO MNO 999 eS" OM OOM TTMOO 
GOO -@ -O89 9 FO—-GNOO— MMM OWOYO 


4 
CHANNEL 
(SP 


STATU 

(XVBN) CVBNJ 
#VERIFY$_READQUOTA 

#4, LIBSSIGNAL 

#0, (SP), #0, #512, BUFFERCR2) 
THIS BLOCKS, XVBN, 43$ 

BUFFER, Re 

8 ereRese R10], R3 


(ENTRY), 49$ 
4(ENTRYS, RO 


12(ENTRY), DEFAULT_QUOTA 
RO pf AST _uic 
8 (ENTRY) 
COUNT_QUOTA 
ENTRY 
RY, R3 


#64, VBN, 40$ 


meri sramem 


<< 


13 
VERIFY Main module 18-5¢ -1984 02:15: AX-11 Bliss-32 V4.0-74 
v04=000 1easep=1Gae 99:57599 «| FARR ebdesyee Yt O334F Page 18 
00000000' ai DD ADE PUSHL CHANNEL : : 
E D4 OOAE CLRL isp) : ; 
00000006 9 yo000000" FF SF DOMED 528:  BUSHAB CURRENT TIRE ; 1037 ; 
000000006 00 o FB AFS CALLS Pi SYSSGETTIM : : 
E p AFA CLRL 0 = (§P) + 1038 : 
00000000" EF 9F OOAF PUSHAB CURRENT_TIME : : 
cee 8 | : 3 
900000006 00 04 FB 00B CALLS #4, SYSSASCTIM F 
0000000" FF 90000000; EF 80 00B0F MOVW © BUFFER, CURRENT TIME 1 : 1039 3 
00000000" EF 18 , 00 ' EF FO 00B A INSV BUFFERS. #0, #24, CORRENT TIME_1+2 + 1040 ; 
90000000" EF ' EF BO 008 MOVW BUFFER+9. CURRENT TIME 145 + 1041 ; 
990000 ' EF ' EF BO 00B32 MOVW  BUFFER+12, CURRENT_TIME_1+7 : 1048 ; 
00000 00° EF 000 ' EF BO 00B MOVW BUFFER+15, CURRENT-TIME-1+9 : 104 3 
000000 ct 90 99 ' EF : B4 MOVW  BUFFER+18, CURRENT-TIME_1+11 + 1044 ; 
0 00000000' i 91 B33 CHB RRENT_TIME_1, #32 > 1045 : 
00000000' EF 0 38 O85 MOVE #48, CURRENT_TIME_1 : ; 
0000v CF 00 FB 00863 53$: CALLS 40, NDEX + 1050 3 
AE 00000000' EF D0 0868 mOVL VOLUME COUNT, 4(SP) + 1055 : 
osrs 3 0872 BRW 1$ : ; 
0040 &8F 00 6E ae aor i C 0875 54$:  MOVCS #0, (SP), #0, #64, FIB > 1063 ; 
50 00000000'FF46 DE 00881 MOVAL @ACCTLCRVNI, RO + 1064 F 
00000000' EF FC AO 06 0889 OVL  -4(RO), FIB : ne F 
00000000' EF 00020002 8F DO 00891 MOVL #131074, FIB+4 + 1065 : 
00000000°_ EF 84 80 089 MOVW VN, F1B+8 + 1067 : 
7E 7C OOBA CLRQ = = (SP) : 1072 : 
7E 7C OOBA CLRQ = = (SP) : ; 
7E p4 OBA? CLRL = = (SP) : : 
F327 cr F OOBA9 PUSHAB FIB_DESC : ; 
—E 7C OOBAD CLRQ = =(SP) : : 
00000099" EF 9F OOBAF PUSHAB 10SB : 3 
7E 7 F 9A 00885 MOVZBL #114, =(SP) : : 
00000000' EF DD 00889 PUSHL CHANN : : 
E D4 O0BBF CLRL 5igP) : 3 
000000006 90 of FB BCI CALLS #12, SYS$Q10W ; : 
9 DO 00BC8 VL RO, S : : 
OA 59 5 BCB STATUS, 55$ : 1073 : 
59 00000000° gf ¢ BC MOVZWL I0SB, STATUS : : 
9 €E8 00BD BLBS STATUS, 56$ + 1074 : 
0240 8F BB 00BDB 55$: PUSHR #*M<R6.R9> : 1076 : 
1 DD O0BDC PUSHL # : : 
000000006 8F DD OOBDE PUSHL #VERIFY$_OPENBITMAP : : 
000000006 00 4 FB OOBE4 CALLS #4, LIBSSIGNAL ; ; 
08 AE 9F OOBEB 56$:  PUSHAB SMAP + 1081 : 
50 00000000'FF4 OF BEE MOVAL asMAP SIZECRYN] RO : : 
04 AE FC OA 0 BF SHL #9, =&(RO), 4(5P) ; : 
04 AE OF OOBFC PUSHAB 4(§P) ; : 
000000006 99 FB OOBFF CALLS , LIBSGET_VM ; : 
dO 00C MOVL RO, STAT : : 
11 E8 00C BLBS STATUS, 57$ > 1082 : 
DD O0COC PUSHL STATUS : : 
E D4 ONC ; CLRL.  =(SP) : : 
L  #VERIFY$_ALL ; : 
000000006 8F DD 00C PUSHL #VERIFYS_ALLOCMEM 


M13 

VERIFY Main module 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 P 47 V 
v04=000 13-08=}3Re 9¢:33:49 VERIFY SRCAVERIFY 1 B30e4 oe a} ve 
000000006 FB 00C16 CALLS LiBss! NAL P : 

: 00000000" FFa¢ DE 00¢ : 57$ MOVA ashab sizetRvn, RO : : 

Te a BE BER : : 
0089 1 00¢ E BRW 64$ : : 

50 00000000' FF Dg C31 58$ MOVA ASMAP_SIZECRVNI, RO : : 

50 FC C3 0039 SUBL3 VBP, =4(RO), R : : 
— Pugs 6 ot, : : 
50 7F 6BF 9A 00C4 MOVZBL #127, RO : : 

5 0 p0 CoB 59$: Ovi RO, fHIS_BLOCKs ; ; 

{ ¢ CLRL = (SP) : ; 

02 hs oF C PUSHAB 2(VBN) : : 

ze 55 ‘ ; C ASHL #9, THIS BLOCKS, -(SP) : : 
5 22 9 78 00659 ASHL #9. VBN,R : : 
54 5 1¢ AE C1 00C ADDL3 SMAP, RO, R4& : : 
te Fe ooce CLRa”=¢SP) 

00000000' ff 9F 00C PUSHAB 10SB : ; 

00000000" EF pp doceE pus CHANNEL : : 

somone CE BE atts sil erste : 2 
59 gf 6B 0C7D MOVL RO "STAT : ; 

BF oooo0000' er Se oocRS BLBE STATUS, (08 ; 

5D 34 ES OOCBA BLBS STATUS, 64$ : : 

53 1 (2 0OC8D 60$: # MNEGL #1, XVBN : ; 

4 11 0¢90 BRB 63$ : ; 

re fk amass ove: Elke cep : 7 

02 ns? oF a9c96 PUSHAB 2 (xyBN) CVBNJ : ; 

a3 020 ¢ COA MOVZWL #512, : ; 

50 5 ef 76 OOC9F ASHL #9, XVBN, RO : F 
eons OF OOCA3 PUSHAB (RO)CR4 : ; 

00000000" EF 9F OOCA PUSHAB 1088. ; 

coounea: #) RHEE, FUR Eee : : 

E D4 00CB CLRL is?) : : 

000000006 ; Hi FB O0CB CALLS #12, SYS$Q10W : ; 
35 0 CBF ovL RO STATUS : : 

: cce STATUS, 62$ ; ; 

5 00000000" €&F 4 CC MOVZWL 10SB, STATUS ; : 

0 : AHS aos, Hibla AUS S : : 

oo A3 g F CDs "  PUSHAB 2(XVBNS CVBNJ : ; 

DD O0CD PUSHL #2 : : 

silent: 000000006 8F Dp cb9 PUSHL #VERIFYS. READSBMAP ; 

ag g 3 CE6 63$: AOBLSS Tits. BLOCKS, VON 61$ : ; 
FF3D 52 0000007F BF F1 OOCEA 64$: = ACBL ae se Ven : ; 
00009000'FF46 DF CF4 MOVAL ie P ei) RVNJ, RO : ; 

eae § Si Ge Sobor a: : : 
0080 f BRW : : 
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VERIFY Main module 16-Sep-1984 X-11 Bliss-32 V4.0-74 Page 48 
150 1228081382 99:53: q HER IEY SREIVERIFY O3004 ve if 
SA 08 BE 1 52 EF 00007 65$: — EXTZV , R10 : 1161 : 
1 00000000' Frag DE O09 MOVAL BiSmAPCRVN, Re : ; 
55 FC oI 1 2 EF 00D EXTZV ; a-4(R1), : ; 
yo ae : ; 
50 00000000' ver bf D 6 MOVAL noe p skURGST AO RO : : 
50 >. 0 D ASHL a : ; 
in ree : ; 
57 08 BE 01 2 EF 00D 3 66$: EXTZV oH, aSMAP R? : : 
54 FC OBI o1 EF 00D EXTZV #1. a-4(Ri), : ; 
4 D4 O3F CMPL 4 Fi : ; 
C bbe BEQL © 68$ : ; 
55 4 Di 0004 CMPL = R&, RS : ; 
7 12 00047 BNEG 68% : ; 
53 8 D D49 VL K, KK 3 $ 
£3 58 0 F2 00D4C 67$:  AOBLSS RO, K, 66$ : ; 
6 DD O05 68$:  PUSHL RVN ; : 
51 01 A3 9E 00D OVAB 1(R3), R1 ; ; 
50 00000000'FF46 DE 0005 MOVAL @CLUSTER_FACTORCRVNI, RO : : 
51 FC AO ¢4 005 MULL2  =4(RO), Ri : ; 
FF OAL OOF O06 PUSHAB =1(R1) : : 
7E 52 FC AQ C5 00D MULL3 -4(RO), J, =(SP) : : 
9 DD O0D6A PUSHL #3 : ; 
08 A €9 00D6C BLBC. R10, 69$ : ; 
000000006 Br Dp OD6F PUSHL #VERIFY$_ALLOCSET ; : 
000000006 g¢ DD 00077 69$: — PUSHL AVERIFYS ALLOCCLR : : 
000000006 00 05 FB OOD7D 70$: CALLS #5, LIBS$SIGNAL : ; 
2g DO 00DB4 MOVL ri : ; 
02 5 5B Fe 9087 71$ AOBLSS R11, J, 72$ : : 
03 11 00088 BRB 733° 3 3 
FF77 31 OOD8D 72s BRW 65$ ; : 
50 00000000'FF46 DE 9090 73$ MOVAL a@SMAP_SIZECRVNI, RO : ; 
58 FC Ag 0c 009 ASHL #12, =4(RO), R14 : ; 
5 01 CE 00D9D MNEGL #1, J : : 
7D 11 OODAO BRB 78$ F : 
54 00000000'FF46 DE OODA2 74$: MOVAL @NSMAPCRVN], R4 : : 
50 FC BG 01 52 EF OODAA EXTZV J, A iR4) RO : ; 
51 00000000'FF46 DE 00DB OVAL av VSMAPCR n° : : 
57 FC BT oN 52 EF 00DB ExTZvV J i he ; : 
7 3 D1 OODBE CMPL sR "Me : : 
C 13 000C1 BEQL = 7 ; 3 
50 00000000'FF46 0 nC MOVAL aSMAP_SIZECRVNJ, RO : : 
50 FC OA 0 Ce ASHL #12, =4(RO), ; : 
SA FFA 9 00D MOVAB =1(R2), K ; : 
19 11 00DD4 BRB 76$ : : 
5B FC BG 01 A EF 00DD6 75$:  EXTZV. K, #1, @=-4(R4), Rs : : 
55 FC OI 01 A EF O0DD EXTZV Kk. #1. a-4(R1). R : : 
5 8 D4 DE CMPL Rg r§ ; : 
O¢ 13 OODE Beal 46 77$ ; : 
57 D1 OODE CMPL RS, R7 : 11 : 
7 12 OODEA BNEG 77% F : 
53 A 00 OODEC VL OK :11 : 
E3 A 0 F2 OODEF 768 AOBLSS RO, K, 75$ 11 ; 
$ pp DF 3 77$ SHL  RVN : 11 3 
51 01 A3 9E OODF MOVAB 1(R3), R1 : 11 : 
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VERIFY Main module 18-5¢ 1984 215: AX-11 Bliss-32 V4.0-74 Page 49 V 
VO4e000 peage= 1882 93:33:89 HAMA) ob des yee ¥4-0534 wat § V 
50 00000000" FF46 DE ODF9 MOVA aclu TER_FACTORCRVNI, RO : F 

1 {oer § E MULL2  -4(RO), R1 : ; 

FF OAL «SF OOE PUSHAB =1(R1) : F 

7E 52 FC AO C5 OOE MULL3 -4(RO), J, =(SP) + 1195 ; 
000000006 BF dp ooE or BuStt | SVERIFY$. ALLOCEXT Blbiee 

000000006 Q ; FB O0E15 CALLS + LIBSSIGNAL : $ 

DO OOE1C MOVL KK. J + 1199 ; 

02 5 : F2 QOE1F 78$:  AOBLSS R11, J, 79$ + 1176 ; 
9 0E23 BRB 0$ : $ 

FRE 3 OOES8 B08: | PUSHAB MAP : 1206 

50 00000080" FFAE OF §f 8 MOVAL a@SMAP_SIZECRVNI, RO : ; 

04 AE FC AO 09 OE ASHL #9, =&(RO), 4(SP) : ; 
04 AE 9F 00E39 PUSHAB 4(§P) : ; 

000000006 00 02 FB OOE g CALLS #2, LIBSFREE_VM : ; 

59 20 D0 OE: OVL STATUS : ; 

11 9 EB O0E46 LBS STATUS, 81$ + 1207 ; 

59 DD 00649 PUSHL STATUS : : 

7E D4 OOE4B CLRL. =(SP) : ; 

000000006 8F DD OOE4D PUSHL #VERIFY$_FREEMEM : : 

000000006 00 03 FB O0ES3 CALLS #3, LIBSSIGNAL : ; 

7E 04 OOESA 81S: CLRL = = ¢§P) + 1212 3 

0000v CF 01 EB 00E5¢ CALLS #1, DO_REPAIR : ; 

03 50 E 00E61 BLBS RO, 82$ : ; 

00E9 31 00664 BRW 9 : ; 

50 00000000'FF46 DE O0E67 82$: MOVAL @SMAP_SIZECRVN], RO + 1215 : 

57 FC AO 01 C3 OOE6F SUBL3 #1, -&(RO), R7 : ; 
52 81 BF 98 00E74 CVTBL #-127, V ; ; 

00cB 31 OOE 78 BRW : ; 

50 00000000'FF46 DE OE 7B 83$:  MOVAL @SMAP_SIZECRVN], RO > 1225 F 

0 FC AO 32 C3 00E8 SUBL3 BN, =4(RO), RO : ; 
0000007F  8F 50 (i OOE RB CMPL RO, #127 + 1223 ; 

04 1B OOE8F LEQU : : 

50 7F 68F «9A 00E91 MOVZBL #127, RO : ; 

55 50 DO 00E95 84$:  MOVL RO, THIS_BLOCKS : ; 

7E 7C 00E98 CLRO 20s = ( §P) : 1237 : 

7E D4 OOE9A CLRL = = (SP) ; : 

02 Ad 9F OOE9C PUSHAB 2(VBN) : ; 

7E 55 09 78 OOE SE ASHL #9, THIS BLOCKS, -(SP) : : 
50 00000000'FF46 DE OEA3 MOVAL @NSMAPLRYN], RO : 3 

54 52 09 OOEAB ASHL #f : : 
FC BO44 OF OOEAF PUSHAB a@-4(RO)(R4) : : 

7E 7C OOEBS CLRQ = (SP) : : 

00000000' ai OF OOEB PUSHAB 1088 : : 

0 DD OOEBB PUSHL #4 ; : 

00000000’ EF DD OO0EB PUSHL CHANNEL ; ; 

E D4 OOEC CLRL (gp) : ; 

000000006 09 of FB Oe CALLS #12, SYS$QIOW : : 

5 0 D9 ECC MOVL RO STATUS : : 

OA 59 5 OECF BLB STATUS, 85$ > 1238 : 

9 00000000° ef f OED2 MOVZWL OSB, STATUS : : 

A 9 E8 OOED BLBS STATUS, 89$ : 1239 : 

3 01 cE EDC 85$:  MNEGL #1, XVBN + 1242 3 

61 EDF BRB 88$ : ; 

7E 7C OOEE1 86$ CLRQ = =(SP) > 1250 : 

7E D4 OOEES CLRL = = (SP) : : 
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#0, SCAN” INDEX 
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VERIFY Main module 16-Sep-1984 715: AX-11 Bliss-32 V4.0-74 Page 51 
64-000 1enee- ihe PSiSeiG§ «| YORRT} obsescze He 05048 9 a) 

000000006 8F DD aa PUSHL #VERIEYS LOSTEXTHDR ; ; 

0000v CF 3 FB OOFF CALLS #3, HEADER_ERROR : ; 

E D4 OOFFC CLRL. 40s = §P) + 1304 ; 

0000v CF o1 FB Fre CALLS #1, p REPAIR : ; 

1F 0 1 BLBC ~=—_«aRO,.-:«95$ : ; 

00000000" EF SF 01006 PUSHAB BUFFER 2 + 1306 : 

68 AE 9F 0100C PUSHAB FILE ID : : 

0000v CF Q FB 100F CALLS #2, READ_HEADER : ; 

OE E 1014 BLEC =a $ ; ; 

00000009" EF OF 1017 PUSHAB BUFFER 2 + 1308 : 

68 AE 9F 0101D PUSHAB FILE 1B ; ; 

0000v cr 2 Fe 1 9 CALLS #2, DELETE HEADER : : 

FF77 53 1 F1 01025 95$: ACBL 4. #1, NUM, 94 + 1288 ; 

FFSF 5 01 55 F1 01008 96$: ACBL RS. #1. RVN, 93$ ; 1¢86 ; 

7E D4 01031 CLRL 3s = ¢ §P) t 1316 : 

0000v CF 01 Fe 19 3 CALLS #1, bo REPAIR : : 

03 50 : 1038 BLBS RO, 978 : ; 

O1A7 31 1038 BRW 116$ : ; 

58 00000000° EF dO 010 . 97$: | MOVL VOLUME_COUNT, R8 + 1318 ; 

$ D4 0104 CLRL  ——-RVN : ; 

0195 31 01047 BRW 109$ : ; 

0040 8F 00 6E reas 00 2c O104A 98$: MOVCS #0, (SP), #0, #64, FIB + 1323 : 

00000000" EF 00200100 a DO 01056 MOVL #2097408, F1B + 1326 ; 

00000000" EF 00010001 F DO 01061 MOVL #65537, FIB+4 + 1325 3 

00000000" EF 56 80 0106¢ MOVW  RVN, FIB+8 : 1327 ; 

7—E 7C 010 CLRQ = = (SP) : 1332 : 

7E 7C 01075 CLRQ = =(SP) : ; 

7E D4 01077 CLRL = = (SP : ; 

EES? CF 9F 01079 PUSHAB FIB DESC : 3 

7E 7C 0107D LRQ 0 = (SP) : ; 

00000000' EF OF O107F USHAB 10SB : ; 

7E F 9A 01085 MOVZBL #114, -(SP) : : 

00000000' cf DD 01089 PUSHL CHA : ; 

E D4 0108F CLRL. = (SP) : ; 

000000006 00 OC FB 01091 CALLS #12, SYS$QI0W : 3 

59 50 pO 01098 MOVL 0, STA : : 

OA 59 & 1098 BLBC STATUS, 99$ : 1333 : 

59 00000000" EF C 1096 MOVZWL I0SB, STATUS ; ; 

13 9 EB O10A BLBS STATUS, 100$ + 1334 : 

0240 F BB O010A8 99$ PUSHR <R6,R 3 3 

1 DD OAC PUSHL #1 : : 

coonanons gp CMn000006 BPE tee EAE REN EgSePERAINOE : ; 

00000000'FF46 DE 010BB 100$:  MOVA aihap SIZE RVNJ, RO + 1339 ; 

57 ae o1 10¢ SUBL3 #1, -&(RO), R7 : : 

5 81 F 10¢ CVIBL #127, VBN ; : 

OOEC 31 010CC 1018: BRW 1 : : 

50 00000000'FF46 DE O10CF 102$:  MOVA @IMAP_SIZECRVNI, RO > 1349 : 

0 FC AO 2 C3 01007 SUBL3 BN, =4(RO), RO : : 

0000007F 8F ’ pi p CHL R #127 > 1347 : 

50 7F BF 9A O10E MOVIBL # 38 RO ; : 

0 00 10E9 103$: MOVL RO, THIS_BLOCKS ; : 

—E 7C O10EC CLRO 20 = ( §p) > 1361 : 

ze b4 01 FE CLRL = = (SP) : ; 

50 00000000'FF46 DE O10F MOVAL  a@BITMAP_OFFSETCRVNJ, RO : : 


14 
-Sep- 215: AX-11 Bliss-32 V4.0-74 Page 52 
VOae000 pe aaypet 1$-Se0-1984 96:35:99 VERIFY SREIVERINY O300% (4) 
-4(R0) CVBNI ; 
” B0"8 HA gfe ae *9 THIS BLOCKS, -(SP) ; 
ve 35 00000000"F Fg DE Ot 6 MOVAL MAPLRVR) RO ; 
™ FC B044 OF 1] PUSHAB a@-4(R0)(R4] ; 
OOH Bi ip : : 
ee 6 4 111 PUSHL ra ; 
00000000 EF DD O111A PUSHL CHANNEL ; 
cf D4 011 CLRL ss pm ; 
000000006 00 F 1 2 CALLS + S18 
H : 110C BLBC STATUS, 1048 ; 1362 ; 
§ 1700000" ES EB O11 BLBS, STATUS. 1018 ; 1363 ; 
3 a} Fe 1139 104$: MNEGL Hl, XVBN ; 1366 
AR Hin ees Ee ce jemi i 
‘ ITMAP_OFFSETCRVNI, RO ; 
$9 oooonogpvrrag DE Bide AOUA, Thar ogee : : 
: sn 6360 $F Oller PUSHAB (xVBN) ERO ; ; 
7E 0200 8F 3¢ 0115 MOVZWL #512, -(SP) 
emg Bat HE 5 a5 ROvAL SIRADCAVRD. RO 
20 23 . #9, XVON, RI : 3 
ee Si) ae eh Pied 
7E 7¢ - ; 
' PUSHAB 10SB ; 
somnooo PRA Bie le 2 : 
atten i be S178 CLRL. = (SP) ; 
000000006 00 O¢ FB 0117D CALLS #i2, SyS$al0u ; 
+4 26 3 ol 87 BLBC STATUS 106$ + 1375 ; 
3 . e ATU $ : 
Gh coomey CO Hie ae Le ig) i 
50 00000000" FFe6 DF 1198 _— ROVAL 96] THAP_OF F SETCRVN], RO ; 1381 
nie 0 Me oo ester 
2 oD ; 
#VERIFY$_WRITEIBMAP : ; 
covonnnnc AF Oe Rtas RUST EMS ta pmb} 
3 mena 2 3 1189 107$:  AOBLSS THIS BLOCKS. XVBN, 105 ; 1388 ; 
FFOA 83 0000007F BF z fl 1e8 108$: fi ut , VON, ; 1339 
it re 1169 ttra -(SP) ; 
7E 7C O11CB CLRO 553? sp) ; 
7E 34 70 O11C va : ; 
' 11D PUSHL CHANNEL ; 
“steerage cf be 1106 CLRL. = (SP : 3 
#i2, SYS$Q10W : 3 
5 56 tetaatabte of of Ff 11bE 109$: ACBL R8, #1, RVN 98 ; 1318 
age 3 00000000" gf D0 115 110$: OVE VOLUME _¢ - ; 


F 14 
VERIFY Main module 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 Pa 3 
v04-000 19-808-1 382 96:35:99 VERIFY SREVERIFY B3o0% = (a3 

7 11 O11€ BRB 112$ ; : 

DD O11F0 1118:  PUSHL RVN + 1401 ; 

0000v CF FB OIF CALLS “. DIR_SCAN : ; 

2 F3 O11F? 112$:  AOBLEQ R3, RVN> 111$ : 1399 3 

D 99000000" F €9 O11F BLBC  DIRECTORY_ERROR, 113$ + 1407 ; 

000006 8F DD 01 PUSHL #VERIFY$_COSTSCAN : ; 

000000906 00 1 FB 1 CALLS #1, LIBSSIGNAL : ; 

4 AE 00000000° i D0 OF 1138: HOVE VOLUME. COUNT, 4(SP) + 1410 ; 

018A if 1219 BRw 127$ : ; 

50 00000000'FF47 DF 121C 114$:  MOVAL @MaXFILIDXCRVNI, RO + 1412 ; 

6E FC AO 1 CT 01224 ADDL -4(RO), (SPS : ; 

bs 1229 CLRL : ; 

01 1 01208 115$: BRW 126$ : ; 

50 00000000'FF4? DE O12cE 116$:  MOVAL aL OSTMAPLRVN], RO + 1414 ; 

FF As 4: 1 MOVAB =1(R6) : ; 

Ss be Re ae BO o1s3t Bec, Ray SHKROD, 1158 £1423 

50 56 08 1 FF 1243 EXTZV #16, #8, RUM, RO + 1426 ; 

69 Ar 50 90 01248 vB 0, FI + : ; 

50 00000000'FF4 DE 124 MOVAL a@SEQMAPCRVN], RO + 1425 : 

66 AE FC B048 BO 01254 MOVW  @-4(RO)CR8], FILE_ID+2 : : 

68 AE 57 90 01 3A MOVB VN, FILE_ID+4 + 1426 ; 

03 00000000" EF 04 0 0125€ BBS #4, QUAL, -118$ + 1431 ; 

0101 31 01266 117$: BRW 128$ : ; 

00000000" EF 9F 01269 118$: PUSHAB BUFFER 2 : ; 

68 AE 9F 01 of PUSHAB FILE 1D : ; 

0000v CF 9 FB 1 é CALLS #2, READ_HEADER : : 

gC 127 BLBC : : 

A 00000000" EF 9A 0127A MOVZBL BUFFER. ¢ R10 : 1440 : 

5B 00000000'EF4A 3— 01281 MOVAW BUFFER~2CR10J, IDENT_AREA : : 

02 00000000' Ef pi 89 CPL STRUCTORE_LEVEL, #2 + 1441 : 

0057 8F 20 68 .« Bou $2 MOVCS #20, (IDENT_AREA), #32, #87, FILENAME > 1445 3 

50 00000000' EF 9a 01298 MOVZBL BUFFER _2+1, RO > 1449 : 

50 A ce 12A Sone: R10, RO 3 3 

50 08 C4 O120A MULL » RO : : 

00000078 = &F D1 0128 CMPL RO. #120 : 1450 ; 

8 1F O1OAF BL SSy : ; 

20 AE 36 AB 0042 FF ¢8 12B1 MOVCS #66, 54(IDENT_AREA), FILENAME+20 + 1455 : 

OC AE 0057 «BF 0 3A 012089 1198: LOCC #32. #87, FILENAME : 1458 : 

2 12 012¢ BNEQ $ ; : 

1 p4 12¢ CLRL ; ; 

50 0c Ar § 120C4 120%: MOV FILENAME, RO : 1459 ; 

50 51 3 : 1 SUBL3 RO, R1, LENGTH : : 

D 11 O12CC BRB 122$ + 1441 : 

OC AE OF 01 cE 121$: PUSHAB FILENAME > 1463 ; 

FA AB 9F 0120 PUSHAB -6(IDENT_AREA) + 1464 : 

900000006 EF EB 1204 CALLS #2, MAKE-STRING ; : 

000° FF 90 01 0g 122$: MOVB #2. USAGE UFFER > 1469 : 

1 00000000'FF De 10£ MOVAL  @OWNERCRVA), R : 1470 : 

00000000' ff FC B148 DO O10EA MOVL @-4(R1)CRBJ. USAGE _BUFFER+1 : : 

1 00000000'FF47 DE O10F3 MOVAL @ALLOCATIONCRVN > 1471 F 

00000000' ff FC B148 DO O12FB MOVL  a-4(R1)CR8), USAGE _BUF FER+S ; ; 

1 00000000'FF47 DE 01 04 MOVAL QUSAGECRVN ; R > 1472 : 

00000000° EF FC B148 DO 0130C MOVL  @-4(R1)CR8J, USAGE_BUFFER+9 : : 


VERIFY Main module 18-50 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 54 
v04=000 1 ~300n 138% ¢: }3: 79 VERIFY. SRC veRIty “B35, . 
00000000" EF 15 VW #2, USAGE_BUFFER+13 
0c 1¢ PUSHAB FILENAME 
p HI PUSHAB PCABI 
oun p Riba pez perenn 
900000006 00 F CALLS #5, SYSS$FAO 
00000000" €F 0000 EF ADDWS #17, USAGE_BUFFER+15, USAGE_RAB+34 
00000000' PUSHAB USAGE_RAB 
000000006 09 CALLS #1, SYSsPuT 
1 BLES RO, 1238 
7E ' ova USAGE _RAB+B, -(SP) 
' PUSHAB USAGE-FAB 
G PUSHL AVERIFYS. FACILITY +4308 
0000v CF CALLS FILE~ERRO 
2F 00000000° 123$:  BLBS DIRECTORY” ERROR, 126$ 
CLRL = = (SP) 
68 PUSHAB FILE_ID 
* 90000006 WVERTFY$_LOSTHEADER 
0000V F CALLS , HEADER ERROR 


DO_REPAIR 
MOVL RO, STATUS 


C 
0000v gf 

9 

12 STATUS, 126$ 
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64 
04 59 
124$: RL = (SP) 
0000v CF 125$: CALLS #2, ENTER_WORK 
FE88 56 01 126$: CBL (SP), #1, NUM, 116$ 
FEOF 57 4 04 127$: ACBL 4 (SPS, wi, RVN, 1148 
3 00000000' BLBS QUOTAACTIVE, {28$ 
01 B BRW 145$ 
B7 128%: CLRL -(SP) 
0000v CF B CALLS #1, p REPAIR 
7B BE BLBC RO, | 
0040 8F 00 6E C movCcS @# tp), #0, #64, FIB 
00000000' ¢ 
00000000' EF 00040004 D ¢ 
00000000' EF B D8 wi, Fl 
00000000" EF a DF MOVW #9. FIB+22 
ES CLRO0_s« = §P) 
7 E CLRQ =(SP) 
EAF EA PUSHAB QF1_DESC 
EAE E SHAB FIB-DESC 
F LRQ 0 =(SP) 
00000000' 9 F PUSHAB 1088 
D FA PUSHL #56 
00000000° p F PUSHL CHANNEL 
000000006 9 F CALLS ae oS ySsatow 
D MOVL RO TU 
7 : BLBC STATUS, 9$ 
9 00000000' 1 MOVZWL 10SB, §TA aly 
000003cc = BF D 18 129%:  CMPL STATIS, “9 
1 1F BEQL 31$ 
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RO 


STATUS, 146$ 
10SB, §TA 
ATUS 
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att UNLKVOL 
SIGNAL 
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suorne DISAB E, 151$ 
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VERIFY Main module 
v04-000 


ab 
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Sm 


0000v CF 01 FB 1567 CALLS ACCESS_INDEX_2 ; F 
00000000' Ff DD 015F PUSHL CHANN L + 1664 ; 
000000006 1 FB O01 CALLS #1, SYSSDASSGN : : 
00000000" EF DD 01 PUSHL CHANNEL + 1665 F 
990000006 00 1 FB 160F CALLS #1, SYSSDASSGN : : 
28 EF 1 : 1616 BBC #1 : 1670 3 
00000000' EF SF 01 E PUSHAB Ll T FAB + 167 ; 
000000006 09 } FB 4 CALLS ‘ » SYSSCLOSE : ; 
7E 00000000" EF 5 16 E va LI§T_FAB+8, -(SP) + 1677 ; 
0 0 0 ' EF OF 01 PUSHAB LIST-FAB + 1674 
* 8F ODD 1 PUSHL #<<<VERIFY$_FACILITY@16>+4184>+4> : 1675 
0000v CF 4 FB 0164 CALLS 4&4, Fite ERROR : 
28 00000000' EF 4 a 1646 1528: BBC rT 15 : + 1682 
00000000' EF 9F 164E PUSHAB us cre + 1684 
000000006 99 1 FB 163 CALLS SYSSCLOSE : 
1 0 5 1658 BLBS RO’ F 
7E 00000000' EF 7D 1655 MOva USAGE “FAB+8, -(SP) : 1689 
90000000" F 9F 0166 PUSHAB USAGE-FAB + 1686 
0000000* 8F DD 1668 PUSHL #<<<VERIFY$_FACILITY@16>+4184>+4> 3: 1687 
0000v CF 4 FB 01671 CALLS #4, FILE_ERROR ; 
50 01 DO 01676 153$: MOVL #1. RO : 1695 
04 01679 RET ; 


: Routine Size: 5754 bytes, Routine Base: CODE + 015C¢ 
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v04-000 12-86-1382 96:33:99 VERIFY SREAVERIFY 83064 ’ (3 
ROUTINE INIT_VOL_DATA(RVN,ACCTL_VALUE): NOVALUE= 
14+ 
FUNCTIONAL DESCRIPTION: 
This routine initializes all the gg ge data during the initial 


ass oyer the volumes and does validation of the basic file structure. 
t finishes by deaccessing the channel. 


—" 
I~ 


QEREENSS 


IMPLICIT OUTPUTS: 
Variables between PER_VOLUME_BEG and PER_VOLUME_END initialized. 


ROUTINE VALUE: 
NONE 


0 

0 INPUT PARAMETERS: 

1 - Relative volume number. 

! ACCTL_VALUE - Value for FIBSL_ACCTL. 

1 IMPLICIT INPUTS: 

1 - Contains the home block. 

} HDR_BUFFER - Contains the index file header. 
1 OUTPUT PARAMETERS: 

1 NONE 

2 


SIDE EFFECTS: 
Channel deaccessed. 
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INDEX FILE ID: opti dierg ced f ! File ID of index file 
BI TAP al ILEWID: BBLOCK FIDSC_LENGTHI, ! File ID of bitmap file 
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34 

35 . ! 

36 WINDOW: REF BBLOCK, ' Pointer to window block 
7 STATUS; ! Status variable 
9 MACRO 

40 4 CHECK_LBN(LBN, VBN) = 

41 4 7 BEGIN 

4g a 8 LOCAL 

tz . 3 TESTLBN; 

45 fi] 1 IF NOT MAP_VIRTUAL(.WINDOW, (VBN), TESTLBN) 

46 ‘il § THEN TR 

47 ® ELSE .TESTLBN NEQ (LBN) 

, : 

750 i) § INITIALIZE (VALUE ,LENGTH,DST)= 

ey ® BEGIN 

7 § #1 3 LOCAL 

75 M174 3 

754 m™ 1750 

755 4 1751 P = (DST); 

756 m 1752 DECR N FROM (LENGTH)-1 TO 0 DO 
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BEGIN 
.P = ‘None ie 


END 
MOVE (LENGTH, SRC,DST)= 
BEGIN 
LOCAL 
P, Q; 
{ 10 0 DO 


4; Q= .Q+ 4; 


INDEX_FILE_IDCFIDS$W_NUM) = FIDSC_ INDEXF; 
INDEX~FILE~IDCFIDSW W7sa = FIDSCTINDEXF: 
INDEX~FILE~IDCFID$W-RVN) = .RVN; 
ITMAP_FILE_IDCFID$ RNUM ="FID$C_BITMAP; 
BITMAP—FILE~1D FIDSW"SEQ) = FIDSC-BITMAP: 
BITMAP-FILE-IDCFIDSW-RVN] = .RVN;~ 


Get device characteristics for this volume. 
CHSFILLCO DVI_LENGTH, DEVICE_CHAR); 
STATUS = $GETDVI( 

DEVNAM=DEVICE _DESC, 

ITMLST=UPLIT(™ 

WORD ( t DVI$_MAX 
LONG (DEV ICE THAREDY bv KAANBLOCK). 0), 

LONG «DEV E CHARLDVL _SECTORS], 0), 
WORD(4, DVIS_T RACK $)7 

(Dé E CHAR DVI *TRACKS], 0), 
WORD (4 


VIC 
cet 
VIS DERS), 
(DEV C bEDVi CYLINDERS], 0), 
WORD (1 DV 
LONG(DEVICE_ 
(0))); 


a NEX XTDEQNAM) 
E, DEVICE_bESC), 
LONG 
FN NOT STATUS 
"SIGNAL (VERIFYS_GETDVI, 1, .RVN, .STATUS); 


: Initialize information from the home block. 
IF .STRUCTURE_LEVEL EQL 2 
THEN 

BEGIN 
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BS. AX11 BLisg~32 V4.0-742 ( 
: FY.832; 
een 198e 8:27:75 eatery’ sae ivent 
Vv RIFY Main module ay burreecun osu wtih 4095) / 4096 OR 
y 186 TERR me LE MR PPA AEE 

183 -BUFE S$) LSSU 5°0 

: U 186 HMOSW-RESFILE 

; Hi y : $3 tae _COUNT GTR 

: 1875 U tas THEN BUFFERCHMZSU. RVN] NEQ .RVN 

; 187 U1 if: ' strucname 

: 180 U 18re os RCHM2$W_RVN] NEQ_O OR FFERCHMZST_STRUCNAMEI, 3C° °) 

: 1879 U 1875 CHSFIND-NOT CRCHM2S¢. STRUCNAME, BU 

: 7 

: eat u i (IF \BUFFERCAM260 _RVN] EQL 1 

1888 " 1873 .BUFFERCHM2$W_SETCOUNT] LEQU 1 

1885 v 1881 .BUFFERCHM2$W_SETCOUNT] NEQ 0) OR 

; 1886 u 1386 ' credate 

> 1887 U 188 i volname 

18 U 188s : SNEQC FORMAT) 

; 1889 CHSN RCHM2$T . 

3 1890 U 188? WNOSS-FORMAT, UPLIT BYTE CTDECFILETIB *)) 

: U 1888 

HB HB Past | 

1899 U 1893 f Llovin fields have olread 7, verified: 

: 1897 U 1898 je THM SUCAAXE LES, HI t$a°cnecksun2. 

: 189 at ey: i in Su “CHECKSUM, HM1$@_C ate gn 

; 1899 y 189 ; re considered entire TECT. Hm gu VOL CHAR, 

° 189 ing fields R, HM1$W_PRO mM, 

: 1901 4 1882 fore ait usBevivee. NUAISB WINDOW. HHISS EXTEND, AMIS LRU Ci 

e 1309 3 eg ea FFERCHMISW_MAXFILES] + 4095) / 4096 OR 
z 1904 U BMAPSIZE] NEQ (.BU 

t 1906 u 1902 ; ACR CANCROTT”BURFER EAB LBARPLEN 16),°3) 

: 1907 U1 cOUFFERCHAT Sw_CLUSTERS NEG 

: 1908 U 1906 i volname 

; 1909 U 1905 i credate 

; 1910 U 1906 i yolname2 

E131 U 1908 tHSNEGC = M1$T_FORMAT) 

; HSN 

; i313 y isi6 WNISSCFORMAT, UPLIT BYTE CTDECFILELIA  *)) 

2) i Bh END 

OES, on. 

: 191 GIN 2, .HOMEVBN, . 

: 1915 CHKPRIHOME, 2, 

; 1918 u 1916 SIGNAL (VERIFYS, 

3 1921 

: 191 

1958 U 1318 3 

> 1924 

4 5 1921 =f 08 be ened 

; 13 § a ! Read the boot block to find ou 
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Main module 


' 

STATUS = $Q10W( 
FUNC=10$_READVBLK, 
CHAN=. CHANNEL , 
10SB=10SB 
P1=HDR_BUFFER_2, 
P2=512, 


P3=1); 
«STATUS THEN STATUS = .JOSBLO]; 
NOT STATUS 


SIGNA' (VERIFYS_READBOOT, 1, .RVN, .STATUS); 


IF 
IF 
THE 
Check all of the home blocks. 
INCR 5 A net 2 TO (IF .STRUCTURE_LEVEL EQL 2 THEN 3*.CLUSTER ELSE 2) DO 
IF .VBN NEQ .HOMEVBN 
THE 
BEGIN 
Read the block. 
STATUS = $Q10W( 
FUNC=]0$_READVBLK, 
CHAN=. CHANNEL, 


10SB=10SB 
P1=HDR_BUFFER_2, 
P2=512 


WWIWANWINNWwwrorororornory 


SOON VE AN 2 OOONOA UNE WWN 9 OD NAMN EWN OO ONAUE WN O OONAUE WP" OOONOUE 


P3=.VBN) ; 
IF .STATUS THEN STATUS = .10SB(0]; 


! Check the vay tet hy of the block. If it reads with an error, always 
! consider it invalid so that it will be rewritten. Otherwise, compare 
! for equality to the primary home block, verifying the expected 


' 
! 
' 
differences. 
i 


BEGIN 
F NOT .STATUS 


PAA SS SSL LL LLL 


RORONNNNNNOOUUUINUIUIE BRR R RR RRR ESR RRR EERE 


I 
THEN 
TRUE 
ELSE IF .STRUCTURE_LEVEL EQL 2 
$ THEN 
BEGIN 
7 F 
7 BEGIN 
? NOT CHECKSUM (HOR BUFFER .¢. $BVTEOFFSET(HM2$¥_CHECKSUM1) ) OR 
7 NOT CHECKSUM2 (HDR BUFFER SByTEOFF SET CHM $W7CHECKSUM2)) OR 
7 CHECK_LBN(.HOR BUFFER CAMSL_HOMELBNJ, . R 
, sHDR_BUFFER_2CAR $W_HOMEVBN) REQ .VBN 
7 THEN 
7 TRUE 
8 ELSE 


END; 
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VERIFY Main module 1b-5¢ 1984 215: AX-11 Bliss-32 V4.0-74 
v04=000 1 =300 138% 96:33:98 VERIFY SREIVERIFY o30¢4 
: 1985 1981 7 BEGIN 
: 19 $ 19 : 7 BUFFERCHM $1 HOMELBN} = 0: 
: 198 1983 7 BUF FERCHM¢SW-HOMEVBN) = 0; 
: 1988 1984 7 BUFFERCLHM Su~CHECKSUR}) = 0; 
: 198 1985 7 BUFFERCHM2SW-CHECKSUM2] = 0: 
: 1990 19 $ 7 HDR_BUFFER_2CHMOSL_HOMELBN) = 0: 
: 1991 198 7 HDR-BUFFER-oCHMoSW_HOMEVBN] = 0: 
; 199¢ 1988 7 HDR-BUF FER OLHMoS$W-CHECKSUM1] = 0; 
: 199 1989 7 HDR-BUFFER~OLHM2SW CHE CKSUM@ = 0; 
> 1994 1990 7 CHSNEQ(512> HOR_BUFFER_2, 512, BUFFER) 
: 1995 1991 7 END 
; 1996 199¢ END 
: 199 199 LSE 
: 1998 1994 CH$NEQ(512, HDR_BUFFER_2, 512, BUFFER) 
> 1999 1995 § 
: 2000 1996 4 THEN 
; 2001 1997 5 BEGIN 
; 00¢ 1998 3 
; 200 1999 ! Report an appropriate error. 
+ 2004 000 5 i 
: 2005 001 § if .STATUS 
: 2006 00¢ 5 THEN SIGNAL(VERIFY$_CHKALTHOME, 2, .VBN, .RVN) 
> 2007 200 5 ELSE SIGNAL(VERIFY$-READHOME, 2, .VBN, .RVN, .STATUS); 
3 2008 004 5 
; 2009 005 5 
3 2010 006 5 ' Reconstruct and rewrite the block. 
; 2011 007 5 i 
; Og 008 3 IF DO_REPAIR() 
; 201 009 THEN 
: 2014 010 6 BEGIN 
: 2015 011 6 CHSMOVE (512, BUFFER, HDR BUFFER_2); 
> 2016 gig 6 IF .STRUCTURE_LEVEL EQL 2 
: 2017 013 6 THEN 
: 2018 014 7 BEGIN 
3 2019 015 7 HDR_BUFFER_2CHM2$W_HOMEVBN] = .VBN; 
; 2020 2016 7 MAP-VIRTUAC(.WINDO@, .VBN, HDR BUFFER 2CHM2$L_HOMELBN)); 
3 2021 2017 7 CHECK SUNG (HDR BUFFER. , SBYTEOFFSET (HM2SW_CHECKSUM1)); 
: Oe 2018 7 CHECKSUM2(HDR-BUFFER~2, SBYTEOFFSET(HM2SWCHECKSUM2)) ; 
; 20 019 6 END; 
: 2024 P 2020 6 STATUS = $Q10W( 
: 30 5 P 2021 6 FUNC=10$_ WRITEVBLK, 
3 2026 P 20 : 6 CHAN=. CHANNEL, 
: 2027 P 2023 6 10SB=10SB 
: 20 8 P 0 4 6 PI=HDR_BUFFER_2, 
: 20 P 5 P2=512, 
: 2030 0 $ 4 P3=.VBN); 
+ 2031 027 6 IF .STATUS THEN STATUS = .10SBC0); 
3 ¢ 028 6 IF NOT .STATUS 
: $i 029 6 THEN 
: 0 g SIGNAL(VERIFY$_WRITEHOME, 2, .VBN, .RVN, .STATUS) 
: ° 5 1 END; 
: § 4 END; 
: 20 END; 
: $ 4 
: 5 
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! Allocate memory for and read index file bitmap. 


EE 


FRPRANNARRAAAAR ERR R EEE 
WRC DDNANEWNODDNOU EWI 


SF 


SSS 


WN —OODONOULSWN—"O0OO~n 


SEER EEE ee 


SOoOooooooooeoeo 
SN NNN 


So o2 oo 


SS 
LeAE 


vuvvvU 


MOPIPOTENOPoPononononofnonononononyd 


Main module 


‘ 


MOPUPOPOROToTorononononofrorofronofnonory 
foelelelelelelelelelelelelelolelelolelealala lola) 
ANAM AAAMNNAE BBR RRR RRR 


CESSES SESS 
AAD oa 
SONA WN SO ODNAMNE WIN SO OONOAUE WN CO OONOULS WI 


COOCoooooeocoeo 
ONAN 


COOOOCOoO 


SSSSLEARANS 
PIPPI DIDS. SUPT TOTTI 


eur 


Oo 


! 
STATUS = LIBSGET_VM(XREF(. IMAP SIZEC-RVN=13 * 512), IMAPL.RVN-1)); 
IF NOT .STATUS TREN SIGNAL(VERTFY -ALLOCHER 0,_.SfATUS); 
INCR VBN FROM 0 TO .IMAP_SIZEC.RVN=1] - 1 BY 127 DO 
LOCAL 
THIS_BLOCKS; ! Count of blocks to read on current iteration 


Compute number of blocks to read this time. 
THIS rap ocks = MINU( 
. IMAP_ SIZEC.RVN-1] = .VBN); 


! ~ a the blocks. If this fails, re-execute the read one block 
i at a time noting the blocks that fail. 


STATUS = $Q10W( 
FUNC=10$_READVBLK, 

CH AN=. CHANNEL, 

10SB= met: 

a IMAP vty + 
=. THIS * 51 
=. TARP” OFFSETC. R 

STaiUs Th THER STATUS = 


BN * 512, 


V 
i 
er" 1] + .VBN); 
IF . .1058C0 oi: 
IF NOT 
THEN 

BEGIN 

INCR xvBN FROM 0 TO .THIS_BLOCKS-1 DO 


B 
arate = $Q]0W( 
FUNC=I0$_READVBLK, 
CHAN=. CHANNEL, 
10SB=10S 
Pi= =,{QArt- ‘RVN-1] + .VBN * 512 + .XVBN * 512, 


=-BITMAP_OFFSETC.RVN-1] + .VBN + .XVBN) ; 
.Status TH er STATUS = .IOSBCOJ; 


NAL ( 
MVERIFYS_READIBMAP, 
-BITMAP_OFFSETC.RVN-1) + .VBN + .XVBN, 
STATUS); 
END; 
END; 
END; 
: Get the EOF from the index file header. 


éort. RVN-1) = 
IF. STRUCTURE fiver EQL 2 


ieoSeo-19Re 98:35:29 yan aus 


civ 


=32 V4.0-74 
ERIFY.B32; 
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VERIFY Main module 16-30 -1984 215: AX-11 Bliss-32 V4.0-74 e 5 
VO4=000 ease e= Tbe PSi5e:F9 «| YON obhesuze Yh 05544 age 85 
099 THEN 
6 EOFC.RVN=1] = ROT(.BBLOCKCHDR_BUFFERCFH2$W_RECATTRI, FATSL_EFBLK], 16) - 1; 


DOOO 
= 


OoCCoO 


: Now scan the volume's index file bitmap backwards, looking for the highest 
! bit set. The maximum of the EOF mark and the highest set bit is taken to 
be the true index file EOF. 

DECR J FROM .IMAP_SIZEL.RVN-1] * 128 - 1 TO 0 DO 


N 
IF .VECTORC.IMAPC.RVN-1), .J] NEQ 0 
THEN 


DOOOCOCOVOCOCOCOOCNOOOO 


A=OODNA ANEW 9 OO NA NE WN SO OO NAN EWN OOO NAU EWN SMO VODONAUL WI OWOONOU 


3d i 
EOFC.RVN=-1) = MAXU( 
232 + 


LEFT_ONE(.VECTORC.IMAPL.RVN-1], .J]) + 
HEABER_OFFSETC.RVN-1), 
-EOFE.RVN-13); 
EXITLOOP; 


END; 


Allocate memory for and initialize directory bitmap. 


STATUS = LIBSGET_VM(ZREF(.IMAP_SIZEL.RVN-1] * 512), DIRMAPL.RVN-1)); 
IF NOT .STATUS TREN $1 SMAL CVERTE VS A LOCRER 0, .STATUS); 
INITIALIZE(O, .IMAP_SIZEC.RVN-1) *-128, .DIRMAPL.RVN-1)): 


4 
4 
4 
4 
4 
4 
4 
| 
Allocate memory for and initialize lost file bitmap. 


STATUS = LIBSGET VM(ZREF(.IMAP_SIZEC.RVN-1] * 512), LOSTMAPL.RVN-1)); 
IF NOT .STATUS TREN $1 GNAL (VERT YS_ALLOCRER 0, STATUS) 
INITIALIZE(O, .IMAP_SIZEC.RVN-1] * 128, 


WN O DONO UNE WN “OVO ONOULSWWNODONOM 


“LOSTMAPE -RVN=15 ; 


: Allocate memory for and initialize extension header bitmap. 


STATUS = LIBSGET VM(XREF(.IMAP_SIZEC.RVN-1] * 512), EXTMAPL.RVN-1)); 
IF NOT .STATUS TREN 3] GMAL CVERTE VS _ALLOCHER 0, .STATUS); 
INITIALIZE(O, .IMAP_SIZEC.RVN-1] * 128, . ; 


NOu 


EXTMAPL .RVN-1)): 


e memory for file sequence number vector. It need not be 
see =-- an entry is valid only if the corresponding IMAP 
set. 


Llocat 
nitial 
it is 
TUS = LIBSGET VM(ZREF(.IMAP_SIZEC.RVN-1] * 512 * 16), SEQMAPL.RVN-1)); 
NOT .STATUS TREN SIGNAL(VERTFYS_ALLOCMEM, 0, -STATUSS; 


' 
i 
i 
STA 
IF 
IF_.QUALCQUAL_USAG] 
THEN 
BEGIN 


! Allocate memory for file owner UIC vector. It need not be 
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tjet ieee -- an entry is valid only if the corresponding IMAP 
et. 


S = LIBSGET_VM(XREF(. IMAP SIZEC.RVN 
T .ST § YS_A 


E A * 512 * 32), OWNERC.RVN=1)); 
«STATUS TREN SIGNAL (VERTF 


N-1] 
LLOCMEM, 0, .STATUSS; 


ocate memory for file allocated blocks vector. It need not be 
$jes\aee =-- an entry is valid only if the corresponding IMAP 
$s set. 


S = LIBSGET VM(ZR 
T ST Ss 


- IMAP sizer Ryne * 512 * 32), ALLOCATIONE.RVN-1)); 
»STATUS TREN (V 


EF(.IMA 
IGNAL(VERTFY$_ALLOCMEM, 0, .STATUSS; 


ocate memory for file used blocks vector. It need not be 
tial ised -- an entry is valid only if the corresponding IMAP 
By 


set. 


Lt 

ni 

it 

ATUS = LIBSGET VM(ZREF(.IMAP_SIZEC.RVN-1] * 512 * 32), USAGEL.RVN-1]); 
NOT .STATUS TREN SIGNAL(VERTFYS_ALLOCMEM, 0, .STATUSS; 


IF_ .STRUCTURE_LEVEL EQL 2 
THEN 
BEGIN 
! Allocate memory for file back Link FID vector. It need not be 
4 
4 
| 


! initialized -- an entry is valid only if the corresponding IMAP 
bit is set. 


STATUS = LIBSGET_VM(ZREF(.IMAP_SIZEC.RVN-1] * 512 * 48), BACKMAPL.RVN-1)); 
IF NOT .STATUS TREN SIGNAL(VERTFYS$_ALLOCMEM, 0, .STATUSS; 


! Read the primary index file header into HDR_BUFFER. If the read fails, 
: force the header invalid so that it will be rewritten. 


STATUS = $Q10W( 
FUNC=10$_READVBLK, 
CHAN=. CHANNEL, 
10SB=10S8 
P1=HDR_BUFFER, 


= 
P3=, HEADER OFFSETL 
STATUS THER STATUS 
NOT STATUS 
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~RVN=1] + FIDSC_INDEXF); 
IF = .10SBC0]; 
IF 
THE 
BEGIN 
HEADER _ERROR(VERIF YS aE INDEX_FILE_ID, HDR BUFFER, .STATUS); 
HOR BUFFER FH2$B_STROCLEV) = 0; 


! Read the alternate index file header into HDR_BUFFER_2. If the read 
! fails, force the header invalid so that it will be réwritten. 
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4 
STATUS = $Q10W( 
FUNC=10$_READVBLK, 
CHAN=, CHANNEL , 
10SB=10SB8 
PI=HOR_BUFFER.2, 
= 


P3=,CLUSTER®3 + 1); 
IF .STATUS THEN STATUS = .10SBC0); 
IF NOT .STATUS 
THEN 
IFY$_READHEADER, INDEX_FILE_ID, HDR.BUFFER_2, .STATUS); 
STRUCLEV] = 6; 


Check condition of primary and alternate index file headers. 
if VERIFY _HEADER(HDR_BUFFER, INDEX_FILE_1D) 

BEGIN 

IF 


BEGIN 
IF NOT VERIFY_HEADER(HDR BUFFER 2, INDEX FILE, 1D) 
TRUE 
:HDR BUFFERCFH2SB_MAP_INUSE] NEQ .HDR_BUFFER_2CFH2SB_MAP_INUSE] OR 


«HDR ytd wages wordt: - HDR PE EAC ese _Wrorr sets. 
HDR BUFFER + HOR BUFFERCFH2SB_MPOFFSET) * 2 
-HDR BUFFER 2tFH2$B_ACO FSET] = .HDR BUFFER _CCFH2$B_MPOFFSETI, 
HDR_5BU + HOR BUFFER 2CFH2$B_MPOFFSET] * 0 
-BBLOCKCHDR_BUFFERCFH2$@_RECATTRJ, FATSL_EFBLK) NEQ .BBLOCKCHDR_BUFFER_2CFH2$W_RECATTRI, FAT 


eal 


THEN 
BEGIN 


i Primary header good. Alternate header fails basic vol i¢ity or 
' has a different EFBLK or map area. Alternate header will be 
} restored from primary. 


SIGNAL(VERIFY$_ALTIHDBAD, 1, .RVN); 
IF DO_REPAIR() 


BEGIN 

STATUS = $Q10wW( 
FUNC=10$_WRITEVBLK, 
CHAN=. CHANNEL, 
10SB=10SB 
P1=HDR_BUFFER, 


P = e 
P3=.CLUSTER*3 + 1); 
IF .STATUS THEN STATUS = .10SB(0]; 
A » STATUS 
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1 ~3007 138% 96:35:99 Yoeaity see iveRity 63004 = (3 
§ HEADER es ah 
VERIFYS$_WRITEHEADER, INDEX_FILE_ID, HDR_BUFFER, 
8 » STATUS; 
END; 
if 3 ELSE 
74 4 IF VERIFY_HEADER(HDR_BUFFER_2, INDEX_FILE_ID) 
75 & THE 
6 BEGIN 
4 i Primary header is bad, alternate header good. 
0 } Primary header will be restored from alternate. 
1 SIGNAL(VERIFY$_PRIIHDBAD, 1, .RVN); 
¢ IF DO_REPAIR() 
THEN 
4 ? BEGIN 
5 STATUS = $Q]0W( 
a6 6 FUNC=]0$_WRITEVBLK, 
; 6 CHAN=. CHANNEL, 
8 6 10S8=10SB 
389 6 P1=HDR_BUFFER_2, 
291 6 P = HEADER OFFSETC.RVN-1) + FIDSC_INDEXF); 
8 6 IF .STATUS THEN STATUS = .10SBC0); 
93 6 IF NOT .STATUS 
94 6 THEN 
95 6 HEADER_ERROR ( 
36 6 VERIFY$_WRITEHEADER, INDEX_FILE_ID, HDR_BUFFER_2, 
9 2 » STATUS); 
98 END; 
99 5 END 
00 4 ELSE 
eo 4 SIGNAL(VERIFYS_FINDIHD, 1, .RVN); 
$8 END; 
if 
4 Delete the index file window. 
a DELETE_WINDOW(. WINDOW) ; 
1 
V Deaccess the index file. 
18 $010W¢ 
14 FUNC=10$_DEACCESS, 
te CHAN=. CHANNEL); 
1 
19 : Access the storage bitmap file. Read the file header into HDR_BUFFER. 
CHSFILL(O, FIBSC_LENGTH, FIB); 
1 FIBEFIBSL_ACCTL = ACCT VALUE ; 
2 2 FIBCFIBSW-FID_NUM) = FIDST_BITMAP; 
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F IBC 1BSu_F1D_ sea) = FIDSC_BITMAP; 
FIBLFIBSW-FID-RVN) = .RVN; 
STATUS = $0 00( 
FUNC=10$_ACCESS OR IOSM_ACCESS, 
CHAN=. CHANNEL, 
1osB=10sB 
P1=F1B_DESC 
PS=HDR-ATR DESC); 
IF .STATUS THEN STATUS = .10SBC0); 
IF NOT STATUS 


SIGNAL (VERIFY$S_OPENBITMAP, 1, .RVN, .STATUS); 


: Get a window block for the bitmap file. 
WINDOW = CREATE_WINDOW(HDR_BUFFER, .RVN); 


: Read the storage control block. 
STATUS = $Q10W( 
FUNC=10$_READVBLK, 
CHAN=. CHANNEL 


P3=1); 
IF .STATUS THEN STATUS = .1OSBLO); 
IF NOT STATUS 

SIGNAL (VERIFY$_READSCB, 1, .RVN, .STATUS); 
: Validate the storage control block. 
if 

BEGIN 

IF NOT .STATUS 

THEN 


TRUE 
ELSE IF .STRUCTURE_LEVEL EQL 2 
THEN 


BEGIN 
NOT CHECKSUM(BUFFER) OR 
-BUFFERCSCBSW_STRUCLEV] NEQ SCBSC_LEVEL2+1 OR 
-BUFFERESCBSW_CLUSTER] NEQ .CLUSTER OR 
-BUFFERCSCBSL_VOLSIZE) NEQ .DEVICE_CHARCDVI_MAXBLOCK) OR 
“BUF FERCSCBSL BLKSIZE] Ned 
(DEVICE CHARCDVI SECTORS] * .DEVICE CHAREDV I TRACKS) * 
DEVICE CHARCDVI CYLINDERS) 7 .DEVICE_CHARLDVI_MAXBLOCK) OR 
BUFFER SCBSL_SECTORS NEQ .DEVICE_CHARCDVT SECTORS] OR 
“BUFFERCSCBSL- TRACKS) NEQ .DEVICE CHARCDYI TRACKS] 0 
:BUFFER SCBSL-CYLINDER] NEQ .DEVICE_CHARCLOVI_CYLINDERS) 


re ff 


V 


a ICRA ARIEL MEAD Pend B88 roe 


25 
pt 
~_ 
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SESEESSSSENSSS 


+4 


Pp 
BUFFER: VECTOR; 
BLOCK _COUNT; 


BLOCK_COUNT = yiomae Stastny 
IF “BLOCK COUN 1 67R0 1 fheN “Weck COUNT = 0; 
(BUF FER+3)< fy BLOC COUNT 0 
:BUFFERL. "BLOCK. fount 4 NEO” ROT(.DEVICE_CHARCDVI_MAXBLOCK], 16) 


ODONAUVE UR OOONAULE WO 


BLOCK_COUNT = .SMAP 136% .RVN=1 

IF .BCOCK COUNT GTRO THEN “atbck, COUNT = 0; 

( FFERS +3¢ oe 

INCR om 6 T 0 at LEK. K COUNT FF DO BUEFERE .J+1] = 4096; 

GUFF ERC. BLOCK Louies ROT(.DEVICE_CHARCDVI_MAXBLOCK), 16); 


Wnr— 


w 


: Rewrite the storage control block. 
STATUS = $Q10W( 

FUNC=10$_WRITEVBLK, 

CH C EL, 


|AN=. 


H 4 

3 4 

; 4 

; 4 

: 4 

3 4 

3 4 

: 4 

; 4 

: 4 

3 END 

3 2 THEN 

; 9 IF Rt ATUS bs SIGNAL(VERIFYS_CHKSCB, 1, .RVN); 

3 4 2 i REPAIR() 

H ret > i BEGIN 

3 108 , ? 1 Reconstruct the storage control block. 

3: 2404 400 4 EWSFILL (0 512, BUFFER); 

; 405 401 4 TF STRUCTURE LEVEL EQL 2 

3; 2407 40 2 BEGIN 

; 2408 404 BUF FERCSCBSW_STRUCLEV] = SCBSC_LEVEL2+1; 

3; 2409 405 BUFFERLSCBSW_CLUSTER] = .CLU ER; 

: 2410 rts BUFFERLSCBSL_VOLSIZEJ = .DEVICE _CHARCDVI -MAXBLOCK]; 
3; 2411 40 BUFFER Ma 72 warrtt ete a 

3 “ig 408 g (. DEVICE CHARCOVI_SECTORS] * .DEVICE_CHARCDVI_ TRACKS) * 
3 241 409 -DEVICE CHARCOVI_CYLINDERS]) / .DEVICE CHAR gv _MAXBLOCK); 
3 24146 410 BUFFER SCBSC_SEC TORS! = DEVICE cHaRtDVi SECTO 

3: 2615 411 BUFFERCSCBSL_TRACKS] = .DEVICE_CHARCDV I_TRACKS] 

: 2416 tig BUFFERCSCBSL_CYLINDER) = .DEVICE MCHARLDUI ia 
3 2417 41 BUFFERCSCBSL_STATUS) = 

3 2418 414 SCBSM_MAPALLOC OR SCBSM_FILALLOC OR SCBSM_HDRWRITE; 
3 ret re 2 CHECKSUM (BUFFER) ; 

3: 2421 419 & ELSE 

: $258 419 MAPS 

: 2426 420 BUFFER: VECTOR; 

3 2425 421 LOCA 

3 2426 4 § BLOCK_COUNT; 

: 2427 4 

: 26208 426 

; ? r 5 

3; 24 & $ 

: 26 4 3 

3; 24 4 4 

; 246 4 4 

3: 24 & 4 

3; 26 4 § & 

3: 24 4 4 

> 26 434 4 

: 26 435 4 

: 26 4 4 
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IF OT .STATUS 
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4 
4 
4 
4 
3 3 
i 
BEGIN 
THEN 
ELSE 
END 
THEN 
i (Set bi 
IALI 
-CLU 
DO 


" _SIGNAL(VERIFYS_WRITESCB, 1, .RVN, .STATUS); 
END; 


! Check bitmap file for contiguity and correct size. 
IF 
IF_ .WINDOW EQL 0 
TRUE 
-WINDOWCWDW_ SIZE] NEQ 1 
-BBLOCKCWINBOWLWDW_ ENTRY WOW_COUNT] LSSU .SMAP_SIZEC.RVN-1] + 1 
SIGNAL(VERIFY$_BADBITMAP, 1, .RVN); 


! Allocate memory for recomputed storage bitmap and initialize it. 
! (Set bits mean free clusters.) Mark clusters above the true size of 
! the volume allocated. 


STATUS = LIBSGET_VM(ZREF(.SMAP_SIZEC.RVN-1] * Rate ANSMAPL. RVN-1)); 
IF NOT .STATUS TREN SLGNALCVERTE YS ALLOCHER 
ANITIA ALIZE(-1, .SMAP_SIZEL.RVN-1] * 128, EO EMSPC: Status) 

FROM «, DEVICE CHARLDVI ae ysyoce? + .CLUSTER_FACTORC.RVN=-1) - 1) / 


R_FACTOR 
TO .SMAP_ Ue TSEr. RVN=1 . 512 * 8 - 1 


BITVECTORC.NSMAPC.RVN-1), .NJ = FALSE; 


: Allocate memory for and initialize allocated cluster bitmap. 


STATUS = LIBSGET VM(ZREF(.SMAP_SIZEL.RVN-1] * 512) VSMAPC. RVN-13); 
IF NOT .STATUS TREN S1GNA UCVERTF VS SALLOCHER 0, «STAT 


MOVE (. SMAP SH2EL. RVN-1) * 12 RVN-1], WSRAP Shin-1); 


! Allocate memory for and initialize multiply allocated cluster bitmap. 


1 
STATUS = LIBSGET VM(ZREF (. SMAP Rechte .RVN-1) * Pate ARULTSMAPL.RVN-13) 
IF NOT .STATUS TREN SIGNAL (VERTE YS_AL OCMEM, 

INITIALIZE ( gs .SMAP_SIZEC.RVN-1) * “155 e AEN Shap FATUS) 


! Delete the bitmap file window. 
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: 249 494 ' 
5 249 499 DELETE_WINDOW( .WINDOW) ; 
: $200 139 
: 08 138 Deaccess the storage bitmap file. 
: p 5500 10W< 
BPR g EaMar Ohamngt SESS 
Py = Py 
3; 250 288 END; 
1706 .BLKB 2 
001A 9904 17D8 P.ABU: .WORD 4, 26 : 
00000000" 0170¢ “ADDRESS DEVICE_CHAR : 
0000000 017E0 .LONG 0 : 
0024 004 17E4 “WORD 4, 36 : 
000 0° 01768 “ADDRESS DEVICE_CHAR+4 : 
00000 017EC “LONG 0 : 
00 9904 17F0 “WORD 4, 38 : 
09 0 9° 17F4 .ADDRESS DEVICE_CHAR+8 : 
000000 017F8 ONG 0 : 
0028 0004 O17FC ORD 4, 40 ; 
0000000" 01800 “ADDRESS BDEVICE_CHAR+12 : 
0000000 01804 ONG 0 ; 
0034 0010 01808 ORD 16, 52 F 
00000000" 00000000' 0180¢ SADDRESS DEVICE_NAME, DEVICE_DESC ; 
00000000 01814 ;LONG 0 ; 


OFFC 00000 INIT_VOL_DATA: 


SE 18 C2 0000 SUBL2 p* ; 
10 AE 00010001 8F D0 0000 MOVL 6553 INDEX_FILE_ID : 1775 
5 04 AC 00 00000 MOVL VN, R? : 1777 
14 AE 57 80 0011 MOVW = R7 NDEX FILE_1D+4 : 
08 AE 00020002 i DO 00015 MOVL Ry, IN ap BITMAB. FILE_ID : 1778 
OC AE 7 B0 0010 MOVW = R7, BIThA FILE 1Dta” : 1780 
10 00 6 00 2c 00021 MOVCS #0. (SP), PaO #16, DEVICE_CHAR > 1785 
00000000' if 0026 ; 
7¢ 00028 CLRQ = =(SP) : 1799 
7E 7C D CLRQ = =(SP) ; 
BE AF OF F PUSHAB P.ABJ : 
000000 EF 3 PUSHAB DEVICE_DESC : 
¢ CLRQ. = =(SP) : 
000000006 00 F A CALLS #8, SYSSGETDVI ; 
12 E tA BLES RO; bs i$ : 1800 
7E 5 47 mova =-R7, =< § + 1802 
1 DD OO04A PUSHL #1 ; 
000000006 8F DD 0004 PUSHL #VERIFY$_GETDVI ; 
000000006 00 4 FB 2 CALLS #4, LIBSSIGNA ; 
if "FEA? DE i$: MOVAL @IMAP_SIZECR7), R4& : 1811 
{ 999 OOF Far DE 2 MOVAL a@MAXFILIOXCR7), R1 : 1 ig 
BBs FE Gh DE 00069 MOVAL  a@CLUSTER_FACTORCR7J, R3 : 181 
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VERIFY Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0=-74 Page 74 
v04=000 eree=}8Re Pgise:sy | YOMR Tv ebdes yee Yh 05509 * 55 
O1AD 31 00174 8$: BRW 19$ ; 
00000000" EF 23 D4 133 BF: CMPL VEN, HOME VBN + 1942 
F4 } 1 BEQL 5 : 
7E 7¢ 001 CLRO = = (SP) + 1954 
43 D4 001 CLRL = (SP) : 
3 D 001 USHL VBN : 
7E 0200 F 3¢ 001 MOVZWL #512, =(SP) : 
00000000° cr F 001 ; USHAB HDR_BUFFER_2 : 
E 7C 001 CLRQ = =( SP) : 
00000000' ef OF 198 PUSHAB 1088 : 
1 OD 19 PUSHL #4 : 
00000000' i dD 4 ® PUSHL CHANNEL : 
E D4 OO1A CLRL 5 isp) : 
000000006 99 ¢ FB IAS CALLS #12, SYS$QI10W : 
DO OO1AA MOVL RO, STATU : 
07 8 5 O1AD BLBC = STATUS, 10$ + 1955 
38 00000000' gf ¢ 0180 MOVZWL I0SB, STATUS ; 
0 oon . 187 10$: BLBS STATUS, 11$ + 1965 
02 00000000' cr D1 OO1BD 11$:  CMPL © STRUCTURE_LEVEL, #2 + 1968 
B 12 001C4 BNEG les : 
3A DD 00106 PUSHL #58 + 1973 
00000000" EF 9F o1¢8 PUSHAB HDR_BUFFER 2 : 
000000006 EF 08 FB ce CALLS #2, CHECKSOM2 : 
¢ 5 £9 01D LBC C«Cé'80, ‘148 ; 
7E O1FE BF 3C 00108 MOVZWL #510, -(SP) + 1974 
00000000' FF OF 9010p USHAB HDR_BUFFER ; 
000000006 EF : FB OO1E CALLS #2, CHECKSOM2 : 
67 5 E9 OOIEA LBC —s«RO,._ «148 ; 
04 AE SF OO1ED PUSHAB TESTLBN + 1975 
59 DD 001F0 PUSHL VBN ; 
SA DD 001F2 PUSHL WINDOW : 
0000v CF 03 FB OO1F4 CALLS #3, MAP_VIRTUAL ; 
58 50 £9 001F9 BLBC 0 ; 
00000000" EF 04 AE 01 OO1FC CMPL §_ TESTLBN, HDR_BUFFER_2 ; 
4E 12 00204 BNEQ 14 ; 
59 00000000" _EF 10 09 FD 99 06 CMPZ7V #0, #16, HDR_BUFFER_2+16, VBN + 1976 
43 12 0020F BNEQ «148 ; 
90000000" EF 04 00211 CLRL BUFFER : 198 
90000 * EF B4 00217 CLRW BUFFER+16 : 198 
00 6 00" EF B4 00 1p CLRW BUFFER+58 + 1984 
00' EF B4 00 CLRW  BUFFER+510 > 1985 
' EF D4 00229 CLRL -HDR_BUFFER_ + 1986 
' EF B64 E CLRW  HDRTBUFFER@2+16 : 1987 
' EF B4 CLRW HDRTBUFFER@2+58 : 1988 
0 ' EF B4 B CLRW HDR BUFFER~2+510 : 1989 
00000000" EF 00000000" EF 0 F : 0 41 128: cHPCS W512, HDR_BUFFER_2, BUFFER ; 1994 
0000 3 113$:  BRW 19$ : 
15 E9 4 14$:  BLBC STATUS, 15$ > 2001 
DD 7 PUSHL R7 : 2002 
9 DD 00259 PUSHL VBN ; 
2 DD B PUSHL # ; 
000000006 8F DD p PUSHL #VERIFY$_CHKALTHOME ; 
000000006 00 04 FB 63 CALLS 4 LIBSSIGNAL : 
7E 57 7D 0026C 15$:  Mova ao -(SP) > 2003 
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16-Sep-1984 02:15: AX=11 Bliss-32 V4.0-74 Page 75 
V5 e000 ae 16-Se0-1984 ied me OC et PE oe oe i 
9 DD 36F PUSHL VBN : 
2 DD PUSHL # : 
soooe00d¢ 99 000000006 RE Db BOsTs == PUSKL—AYeRIF YS EADHOnE 
0000v cr 0 A i 16$: CALLS oF DO_REPAIR ; 2008 
' "EF F MOVC3 #512, BUFFER, HDR_BUFFER_2 + 2011 
mere me” HE TE RFit en 
0000000" EF 9 oF MOVW  -VBN, _HDR_BUFFER_2+16 + 2015. 
. 00000000" i °F i Ab PUSHAB HDR. BUFFER_2 sO16. 
A DD 002A PUSHL WINDOW ; | 
O000V CF 03 PB 3 86 CALLS W3 MAP_VIRTUAL : 
A DD 00285 PUSHL #58 + 2017 
00000000" EF 9F 002B7 PUSHAB HDR_BUFFER 2 ; 
000000006 gE og, $2 ER Stee «CALLS has -CHeC oR fe 
cooodaub: FF 3 0sts | PUSMAB oR SurrER 2 | 
eta re re ab906 ss cLRa ={eR g 2026) 
59 DD 00 DA PUSHL VBN : 
7E 0200 BF 3C O0eDC MOVZUL #512, -(SP) : 
00000000' EF 9 00 al PUSHAB NDR BUFFER. 2 : 
00000000" EF 9F 002E9 PUSHAB 10SB : 
cooonea: PR HF Ei | 
000000006 00 bE pe $0 as CALLS #13. syssazow 
58 85 DO 008 MOVL RO, STATUS ; 
oe a a a ina 
14 5B £8 00300 LBS STATUS, 19$ ; 2038 
7E oF OD 0031 188: MOva R7, -(SP) ; 2030, 
59 DD 00 13 PUSHL VBN F 
02 DD 00315 PUSHL #2 : | 
000000006 8F DD 00317 PUSHL #VERIFYS WRITEHOME 
FE4D oe $8 Fi 00824 198: ACBL’ RIL. AI VEN. 9S ; 1940 | 
gg Onvanoorray ob Sik Sastak RINE ESD Led 
30 00000000°FF47 DE 00334 MOVAL ajhap SIZECR7J , RO 
04 AE FC AO oo ue i ASHL #9, (RO), 4(SP) 
000000006 00 FB 0034 CALLS #2, LIBSGET_VM 
# Poe | pe HU, zo] 
DD ? PUSHL STATUS : | 
000000006 ef DD 00356 PUSHL AVERIFYS ALLOCHEM 
FB 00 CALLS #3, LIBSSIGNA : | 
a. ee i vane i : ‘ 208 NOVA IAAP Size R7J, RO ; 2041 | 
1 F CVTBL #-127, VBN’ : 
. ; 00EB 8 74 21$ BRW 28$ : 


16 
VERIFY Main module 1h-40 -1984 02:15: AX-11 Bliss-32 V4.0-74 Page 76 
v04-000 et aees ran eed GPE ae tt aE ee Ee ve «55 
50 00000000'FF47 »D 77 22$: | MOVAL @IMAP_SIZECR7], RO : 2051. 
FC 20 28 es 7F SUBL3 VBN, =f iZENR RO F 
0000007F  8F D1 4 CMPL RO, #127 + 2049) 
4 1B B BLEQU 23$ ; 
50 7F BF 9A 0038D MOVZBL #127, RO : | 
0 p0 1 23$:  MOVL RO, fHIS_BLOCKS : 
— 7¢ 4 CLRO 20 = ( §P) + 2063 
rE D4 0039 CLRL  =(SP) : 
50 00000000'FF47 DE 0039 MOVAL. @BITMAP OFF SETCR7J, RO ; 
FC B042 3 O3A PUSHAB @-4(RO)CVBN ; | 
7E 55 09 78 003A4 ASHL #9, THIS BLOCKS, -(SP) : | 
; 00000000'FF47 OF 0 As MOVAL aJMAPLR7I RO : 
54 09 038 SHL #9, VBN, R4& ; 
FC B044 9F 003B4 PUSHAB @-4(RO)ER4J : 
—E 7C 003B8 CLRQ _=(SP) : 
00000000! ef 9F OO3BA PUSHAB 10SB : | 
1 DD 003C0 PUSHL #49 : 
00000000° i DD 005¢8 PUSHL CHANNEL ; 
E D4 003C CLRL. =(SP) : 
000000006 00 OC FB OO3CA CALLS #12, SYS$QIOW ; 
53 50 DO 00301 MOVL RO, STATUS : 
OA 58 E9 00304 LBC STATUS, 24$ > 2064 
58 00000000° EF C 00307 MOVZWL IOSB, STATUS ; 
93 8 £8 O03DE BLBS ATUS, 21$ + 2065 
53 01 CE OO3E1 248: MNEGL XVBN + 2068 
78 11 OO03E4 BRB $ : 
7E 7C OO3E6 25$:  CLRQ (SP) ; 2076 
7E D4 OO3E8 CLRL  =(SP) : 
50 00000000'FF47 DE OO3EA MOVAL @BITMAP_OFFSETCR7], RO : 
50 52 FC AO C1 003F2 ADDL3 -4(RO), VBN, : 
6340 9F O03 PUSHAB CxVBN) ERO ; 
7E 0200 8F 3C 00 FA MOVZWL #512, <(S : 
50 00000000'FF47 DE OO3FF MOVAL @IMAPCR7], RO : | 
50 54 FC AO C1 00407 ADDL3 -4(RO), R& : 
51 53 09 78 9040¢ SHL #9, XVBN, R : 
6140 9F 0041 PUSHAB (R1)CROJ ; 
7E 7C 00413 LRo = : 
00000000' fF OF 0041 PUSHAB 10SB : 
1 DD 0041B PUSHL #49 : | 
00000000' cr DD 0041 PUSHL CHANNEL ; 
E D4 004 CLRL. = (SP) : | 
000000006 09 o¢ FB 004 CALLS #12, SYS$Q10W : 
5 DO 0042C MOVL 0, grate : 
OA 58 5 04 F LBC STATUS, 26$ : 2077. 
8 00000000' EF C 004 2 MOVZWL 10S8, STATUS : 
32 cs 04 LBS ATUS, 27$ : 2078 | 
57 7D 0043C 26$: mova R7, -(SP) > 2084 | 
3 00000000'FF47 DE 04 F MOVA a6 | THAP_OF F SETCR7J, RO > 2083 
50 FC AO § 447 ADDL3 <-4(R BN, R ; 
6340 SF 0044C PUSHAB (XVBN) (RO) ; 
DD 0044F PUSHL : 2080 | 
000000006 8F DD 431 PUSHL aERIFYS READ IBMAP ; 
000000006 FB 00457 CALLS #5, LIBSSIGNAL ; 
F 3t 378: AOBLSS THIS & cks XVBN, 25% > 2068 
FFOB 2 0000007F BF 9 F1 00462 28$: ACBL R9, Blo7, VEN, § > 2041 
0 00000000'FF4/ DE O046¢ MOVAL ak OF ER 1, R : 2093 | 
FC AO D4 00474 CLRL.  -4(RO) : | 
i 
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VERIFY Main module 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 Pa 77. 
Vo e000 12-80-1382 96:35:99 VERIFY.SRC VERIFY b30r4 - (5) | 
02 00000000" if D4} 477 cul STRUCTURE LEVEL, #2 ; 2094 
51 00000000" EF : 3¢ 4 ROTL #16, HDR_BUFFER+28, R1 + 2096. 
Fe BY aooooobo'rra? BE Bocas 208: -ROVAD IAAP SIZEERED, a3 ; 2103, 
53 FC OA Of PB 0095 ASHL a ortRs) a3 : 
5 3 pO 0049A MOVL R3. J : | 
at 11 0049D BRB : | 
50 00000000'FF47 DE O049F 30$:  MOVAL @IMAPCR7J, RO : 2105) 
0 FC me p O4A7 MOVL =4(RO)CII, RO : | 
54 00000000'FF4 4A MOVAL @EOFLR7], R4 : 2108) 
53 52 05 3 era ASHL a5° ip RS : 3109 
0 DD O04BA PUSHL : 2110) 
000000006 ef 91 ia] ppeet CALL #1, LEFT_ONE : 
51 3 9 C1 004C ADDL RO, R : 2109 | 
50 00000000'°FF47 DE 004C7 MOVAL @HEADER_OFFSETCR7], RO > 2111 
51 FC AO CO O04CF ADDL2 =4(R ; 
50 00000000'FF47 DE 00403 MOVAL @EOFCR?], RO > 2112 
FC AO 51 D1 004DB CMPL. = R1, -4(R6) F 
04 1€ OO4DF BGEQU : | 
51 FC AO bO 004E1 MOVL =4(RO), R1 ; | 
FC AG 51 DO 004E5 31$: MOVL 1, -4(R4) : 2108 
03 11 004€9 BRB 33§ + 2107 
B1 32 F4 004EB 328: SOBGEQ J, 30$ + 2103 
00000000'FF47 DF OO4EE 33$: § PUSHAL a@DIRMAPC[R7] > 2120 
6 04 (C2 004F SUBL2 #4, (SP ; 
50 00000000'FF47 DE 004F8 MOVAL @IMAP_SIZECR7], RO ; 
04 AE FC AO 09 78 00500 ASHL #9, -&%(RO), 4(SP) F 
04 AE 9F 00506 PUSHAB ; 
000000006 00 08 FB 00509 CALLS #2, LIBSGET_VM : 
58 5 09 00510 MOVL RO, STATUS ; 
11 58 £8 00513 BLBS STATUS, 34$ : 2121) 
58 DD 00516 PUSHL STATUS ; 
7E D4 00518 CLRL. =(SP) ; 
000000006 8F DD 0051A PUSHL #VERIFY$_ALLOCMEM : 
000000006 00 03 a: 3 0 CALLS #3, LIBSSIGNAL 3 
30 00000000'FF4 DE 05 ! 34$: HOVAL ab iRMAPLR? 3, RO > 2122 
51 o0000005"FF As DE 88 3 MOVAL @IMAP_SIZECR7], R1 : 
50 FC OAT 7 05 ASHL #7, =&(R1), RO ; | 
11 0054 BRB 36$ : 
D4 0054 358: CLRL (P)+ : 
FB F4 00544 36$: SOBGEQ N, 35$ ; | 
ws 00000000" FF4/ DF 47 PUSHAL at OS TMAPLR7] > 2127) 
04 AE cM 8 ce f SHL #9. =4(R1), 4(SP) ; 
04 AE 9F 00557 PUSHAB 4(§P) ; 
000000006 99 FB O055A CALLS Le LIBSGET_VM ; 
5 D 261 MOVL RO, STAT : 
11 E BLBS STATUS, 37$ ; 2128 | 
DD 00567 PUSHL STATUS : 
E D4 0 69 CLRL.  =(S : | 
000000006 i DD $8 PUSHL aVERIFYS ALLOCMEM ; 
000000006 0 : FB 00 CALLS @# L1B$S1¢ AL ; 
00000000'FF4 DE 0978 37$:  MOVAL @LOSTMAPLR7J, RO : 2129 | 
2 FC AO DO 00580 MOVL =4(RO), P ; 
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N, 38$ 
aEXTMAPCR7] 

#4, (SP 

#9, -4(R1), 4(SP) 
4(§p 

e, LIBSGET_VM 

RO, STATUS 
STATUS, 40$ 
STATUS 

=(SP) 
#VERIFY$_ALLOCMEM 
#3, LIBSSIGNAL 
ae , RO 
ECR7I. R1 


N, 41$ 
aSEQMAPCR7] 

#13, -4(R1), 4(SP) 
4 (SP) 

#2, LIBSGET_VM 

RO, STATUS 

STATUS, 43$ 
STATUS 

=(SP) 
#VERIFY$_ALLOCMEM 
#3, LIBSSIGNAL 

#4; QUAL, 


47 
SOUNERCR?) 


@IMAP_SIZECR7], RO 
#14, =4(RO), 4¢SP) 
4(SP) 


( 
me, LIBSGET_VM 
RO, STATU 
STATUS, 453 
STATUS 
LLOCMEM 
tR? 
NCR?) 
ECR?) RO 
’ ), 4tsP) 
ne, LIBSGET_VM 
RO, STATUS 


STATUS, 46$ 
STATUS 
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-Sep-1984 :15: AX-11 Bliss-32 V4.0-742 Page 79) 
¥O4-000 oe eee 1ergee= 1 3Rs 98:33:99 | PON a ey ebkesveei hy oso09 . 5) 
7 4 LRL -(SP) : 
conn 99 ononone HE HSE, Bi eR raengene Ge 
Septet 00000000"FF47 DF $31 468: PUSHAL aysaseteys ; sie 
$5 00000000" FF4? OF O3hi MOVAL aTAP_SIZECR7}, RO ; | 
to Mh ities on SE OF done tie tik : | 
ceipenen ee pa 
11 E8 006BC LBS STATUS, 35 : 2172, 
5 DD cB PUSHL STATUS : | 
E D4 C1 CLRL =(SP) : 
000000006 8F DD 006C3 PUSHL WVERIFYS ALLOCMEM ; | 
000000006 00 03 FB 006C9 CALLS #3, LIBSSIGNAL ; | 
02 00000000' EF D4 99600 47$: CPL STRUCTURE LEVEL. #2 : 2176 | 
0269 31 $oeR9 BRW 62$ : 
; 00000000'FF47 DF 9060 48S: PUSHAL QBACKMAPCR7] ; 2184 
a oe | 
4 06000000'FF47 DE 006E6 MOVAL a@IMAP_SIZECR7], RO : | 
04 AE FC = AO 00006090 : 3 BooeE BULLS #68278. -4(RO), 4(SP) ; | 
srmoralt a ae pau 
11 58 E8 ie LBS STATUS, 49$ + 2185) 
58 DD 00708 PUSHL STATUS : | 
7E D4 0070A CLRL. =(SP) : | 
000000006 8F DD 9070¢ PUSHL #VERIFYS ALLOCMEM | 
pee ee Hg try me oie | ter 
50 00000000'FF4? DE 00710 MOVAL  @HEADER_OFFSETCR7], RO : | 
7E FC AO 01 C1 00725 ADDL3 #1, -4(RO), -(SP : | 
7E 0200 8F se igen MOV2WL #512, -(SPS : | 
00000000' EF i o0f E PUSHAB HDR BUFFER ; 
ere ahs ED eave PUSH’ Reet 
00000000" Fee RT FU we 7 
4 CALLS #12, SYS$QI0W 3 
ceri poeaany 8 8 00 ee MOVE” RO STATUS : 
98 ooooo000' er Se Sores BOY SUL STATUS 308. Filed 
it” 5 c6 0798 BLBS STATUS, 518 : 2199 | 
58 DD 007 F 50$:  PUSHL STATU > 2202 | 
0000009 ' EF 9OF 0076 PUSHAB HDR BUFFER : | 
H AE 9F 166 PUSHAB INDEX FILE_ID : 
000000006 8F DD 0076 PUSHL #VERIFY$ READHEADER : 
0000V ¢F 0000000" EF 9% O0rz CURB. HOA BUFFER? t 220s | 
E Fe fon 518: = CLR. = (SP? : reard 
43 D4 0077¢ CLRL 54S?) : 
54 56 03 C5 0077 MULL3 #3, CLUSTER, R4 : | 
o1 Ad sf 786 PUSHAB 1(R4) : | 
7E 0200 8F 3c 007 MOVZWL #512, =(SP) : 
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HDR_BUFFER_2 
=(SP) 

1088 

YA 

CHANNEL 

#2, $ys$a10w 
RO 


ATU 

HDR BUFFER 2, 
INDEX_FILE 

AVERIEYS Bea 


INDEX 
HDR_BOFFER_ 
‘ , VERIFY HEADER 

HDR BUFFER+58, HDR_BUFFER_2+58 


HDR_BUFFER+1, R1 
HDR_B FFER+2, R3 


HDR -BUFFER Bt}. R RO 


HDR~BUFFER— 
“R 
HDR_BUFFER 
HDRBUFFERER1) 
R3, arate nd. R2, a(SP)+ 


56$ 
UO8 SUFFERSES. HDR_BUFFER_2+28 
62$ 
R? 


#1 
? wget ALTIHDBAD 
LIBSSIGNAL 


verieY Main module 
V 


£=000 1erSep-1986 98:27:18 | Wentryesne venir y 63214 


7E D4 A CLRL. = = (SP) 
000000006 99 F i CALLS nie SYS$Q10W 
A PS 8089 Brac StATOS. $s 
ge 00000000' éF i 38 MOVZWL USB, STATUS 
a9 : E A BLBS TATUS, 55$ 
bD A357$:  PUSHL. = STATUS 
00000000' FF 9 a> PUSHAB HDR _BUFFER 
10 AE 9F OO8AD 58$:  PUSHAB INDEX FILE_ID 
00000000" EF 9F 00880 PUSHAB HDR_BOFFER~ 
0000v CF i: 0 B6 CALLS #2, VERIFY_HEADER 
a a al 
4 DD Spe PUSHL #1 
000000006 8F DD 008¢ PUSHL #VERIFYS PRIIHDBAD 
000000006 00 03 FB 008C CALLS #3, LIBSSIGNAL 
O000v CF 00 FB O8CF CALLS #0, 09 REPAIR 
6E 30 E 08D4 BLBC RO. 628 
— ?C 008D7 CLRQ 3s = (§P) 
7 D4 008D9 CLRL = = (SP) 
50 00000000'FF47 DE 0808 MOVAL @HEADER_OFFSETCR7J, RO 
7E FC AO 01 cI O8E ADDL 1, =-4(RO), -(SP) 
7E 0200 8F 3C 008E8 MOV2WL #512, -(SP5 
00000000' EF oF OO8EC PUSHAB HDR_BUFFER_2 
00000000" EE oF boars et 
5 DD 008FB PUSHL hee 
00000000° FF DD OOBED PUSHL CHANNEL 
E D4 0090 CLRL. = (SP) 
000000006 90 C FB 00905 CALLS #12, SYS$QI10W 
a 6 dO 0090¢ MOVL RO, STATUS 
OA £9 0090F LBC STATUS, 59$ 
58 00000000' EF C 0912 MOVZWL I0SB, STATUS 
29 8 £8 : 91 BLBS STATUS, 62$ 
58 DD OO9IC 59S: PUSHL TATU 
00000009" EF 9F OOSIE PUSHAB HDR_BUFFER_2 
18 AE 9F 00924 60$: | PUSHAB INDEX FILE ID 
000000006 8F DD 00927 PUSHL #VERIFY$ WRITEHEADER 
0000v CF 04 FB 09 p CALLS #4, HEADER_ERROR 
St; 
1 DD 009 PUSHL #1 
000000006 8F DD 009 PUSHL aVERIFYS F INDIHD 
000000006 00 3 FB 009 CALLS #3, LIBSSIGNAL 
A 0D 945 62%: PUSHL IND 
0000v CF oN FB 0094 CALLS #1, DELETE_WINDOW 
me Res ER x 
7E ot 9 CLRQ  =(SP) 
gE aC 9 CLRQ  =(SP) 
7E 34 70 009 VQ #52, =(SP) 
00000000' EF DD 00957 PUSHL EL 
000000006 00 EPS b09eF SR aia. syssai0w 
0040 8F 0 6E 85 2C 00966 mous #0, (SP), Hie #64, FIB 
00000000' EF 96D 
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VERIFY Main module Ib-ge =1984 215: AX-11 Bliss-32 V4.0-74 
v04=000 1 =30P 71382 96:39:99 VERIFY.SRCIVERIFY B32; 
'  €F AC 00 00972 MOVL ACCTL_VALUE, FIB 
88 880 ° EF 00020008 F 00 O097A MOVL @ Siben FIb+4 
0000000" EF 7 BO 00985 MOVW R7, FIBS8 
E 98¢ CLRL 0s = (§P) 
DE7A cr F 009 PUSHAB HDR_ATR_DESC 
E 7C 009 CLRO —_ = (SP) 
7E D4 0099 CLRL = = (SP) 
DE7E cr F 00996 PUSHAB FIB_DESC 
E 7C 0099A CLRQ = =(SP) 
00000099" cr 9F 0099 PUSHAB 10SB 
7E F 9A 009A MOVZBL #114, =(SP) 
00000000' cr dD O9A PUSHL  CHANNE 
E 04 O09AC CLRL. = =(SP) 
000000006 99 OC FB O9AE CALLS #12, SYS$QIOW 
50 DO 0098 MOVL RO, STATU 
OA § & 988 BLBC TATUS 
28 00000000' EF ¢ 98 MOVZWL I0SB, STATUS 
1 f E 9C BLBS TATUS 
7E 57 70 009C5 63$ MOva 7, =(§ 
01 oD 009¢8 PUSHL 
000000006 8F DD O09CA PUSHL #VERIFY$_OPENBITMAP 
000000006 00 04 FB 00900 CALLS #4, LIBSSIGNAL 
57 DD 00907 64$:  PUSHL R7 
00000000" EF 9F 0090S PUSHAB HDR_BUFFER 
0000v CF 08 FB 0090 CALLS #2, CREATE_WINDOW 
SA p 09E4 MOVL RO, WINDOW 
7E 7C OO9E7 CLRO = 
7E 01 7D 009E9 Ova #1, =(SP) 
7E 0200 8F 3C O09EC MOVZ2WL #512, -(SP) 
00000000 EF 9 OO9F | PUSHAB BUFFER 
00000000' EF 9F 009F9 PUSHAB 10SB 
1 DD OO9FF PUSHL #49 
00000000' cr DD OAgI PUSHL CHANNEL 
E D4 OOA07 CLRL 5s? 
000000006 99 o¢ FB 9003 CALLS #12, $yssal0w 
OA 58 & apAts BLBC STATUS, 65$ 
58 00000000° EF C OOA16 MOVZWL uSB, STATUS 
18 8 c8 Al BLBS STATUS, 66$ 
7E 57 7D OOA2Z0 65$: MOV  R7, -(§P) 
oN DD OOA PUSHL #1 
000000006 8F DD OOA PUSHL #VERIFY$_READSCB 
000000006 00 04 FB A CALLS LIBSSIG AL 
8 5 A BLBS TATUS, 66$ 
0007 31 OOA BRW $ 
02 00000000' i p A é 66$: CPL STRUCTURE LEVEL. #2 
0080 31 00A41 BRW 
00000000" EF 9F 00A44 67$:  PUSHAB’ BUFFER 
000000006 FF } i ASA CALLS ae CHECKSUM 
O0A4 : Abt 688: BRW 
0201  8F 00000000' EF 8} A 7 69$: CMP 8 PFER, #513 
56 00000000' EF 10 06 FD Abe CMPZV ' { #16, BUFFER+2, CLUSTER 
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16 
VERIFY Main module 1b-5e =1984 215: AX-11 Bliss-32 V4.0-74 
V5e e000 : 1 ~3007 138% 9¢:33:98 VERIFY. SRC VERINY 93504 
00000000' EF 00000000' EF D1 O0A CMPL BUFFER+4, DEVICE_CHAR 
DA le Ni: BNE . 
50 00000000" EF ' EF C5 OOA7A MULL3 DEVICE_CHAR+8, DEVICE_CHAR+4, RO 
' EF © QOA MULL2 DEVICECHAR+12, RO 
SHS: fF GSR AE BREE gm 
34 1 ASB BNEG 
00000000' EF 00000000° fF p ay CHL FFER+12, DEVICE_CHAR+4 
00000000" EF 00000000' FF p| AAA CML FFER+16, DEVICE_CHAR+8 
00000000" EF 00000000° ti of AB CPL FFER+20, DEVICE_CHAR+12 
25 00000000°F 4? Op anck Or ee | Tener be bex toner 
0000007E 8 a8 D1 OAbG CMPL BLOCK COUNT, #126 
02 1B 0OAD7 BLEQU 71$ 
D4 OOAD9 CLRL _ BLOCK_COUNT 
50 00000000" EF 08 09 ED OOADB 71$:  CMPZV #0, #8, BUFFER+3, BLOCK_COUNT 
15 12 OOAE4 BNEQ 74§ 
Manno” $5 oooco000"eF 40 BT OOAEE EMPL BUPFERS4LBLOCK. COUNT, Rt 
¢3 12 OAFG 73s BNEQ 74$ > 2 
0118 31 OOAF8 73$ BRW 82$ 
11 58 £9 OOAFB 74$ BLBC STATUS, 75$ 
57 DD OOAFE PUSHL 7 
01 DD 008 PUSHL 
000000006 8F DD 0080 PUSHL #VERIFY$_CHKSCB 
000000006 00 03 FB 00B0 CALLS #3, LIBSSIGNAL 
0000v cr 90 FB OBOF 75$: CALLS #0, BO REPAIR 
0200 8F 00 6 00 5? 00817 MOVCS BO. (SP), #0, #512, BUFFER 
00000000' EF OBIE 
85 pooo0000" EF bY OOBDA Capt | SERUGTORE CEVEC, #2 
EF 12 OB 1 BNEQ $ rg ; 
idan EF _ HA ty OB i nov oo letes BUFFER+2 
00000000" EF 52 D9 Opes MOVL 5 BUFFER+ 
50 00000000 EF 00000000' EF C5 O0B4A MULL3 DEVICE_CHAR+8, DEVICE_CHAR+4, RO 
0 00000000' EE C4 00B56 MULL2 0D VICES HAR+12, R 
00000000" eF 50 2 c? 0B5D DIVL3 Re, RO> BUFFERSS 
gosggge: Ey GE00000G: FOB daehe AONE BEVEEE-OUMS Es PUP EEG 
§090000" EF 5G 09 087 VL By ECHARe Ie 
00000000' EF 9F 00B PUSHAB By FER 
000000006 EF O FB oe ; CALLS ’ CHECKSUM 
amma » Bie | 06 + dam teat XS a TG ae eet 
0000007E =F 50 D1 008 CMPL BLOCK COUNT, #126 
18 OOBA4 BLEQU 
ps BA CLRL _ BLOCK_COUNT 
00000000' fF 0 OOBA8 77$: ## MOVB BLOCK-COUNT., BUFFER+3 
1 cE BAF MNEGL #1, J 
A BB2 BRB 79 
00000000'EF 41 1000 8F 3C OOBB4 78$:  MOVZWL #4096, BUFFER+4(J) 
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VERIFY Main module 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 
v04-000 13-88-1382 96:33:99 VERIFY. SRC VERIFY b3oe4 
F 1 50 F2 OOBBE 79$:  AOBLSS BLOCK_COUNT, J, 78$ 
00000000°EF 46 2} 6 3¢ Be ROTL rity ase BuFFER*<ESLOCK. COUNT) 
re si Fs SREB OOF IE SP 
7E 9200 C B09 MOVZWL #512, =(SP) 
00000000' cr F 00BD USHAB BUFFER 
—E 7C O0OBDB CLRQ. =< SP) 
00000000' tf 9F OOBD PUSHAB 1088 
0 DD OCBE PUSHL #4 
00000000 i DD OOBE PUSHL CHANNEL 
E 04 O0BEB CLRL 5 isP) 
000000006 99 Q FB OOBED CALLS #12, SYS$QIOW 
D0 O0BF4 MOVL 0, ST 
OA 5 : OBF7 BLBC ‘STATUS, 81$ 
28 00000000' ai ¢ OBFA MOVZWL 10SB, STATUS 
1 8 E 0c01 BLBS STATUS, 82$ 
7E 57 70 00C04 81$ MOva , o(SP 
4 DD 0¢07 PUSHL 
000000006 8F DD 00C09 PUSHL #VERIFY$_WRITESCB 
000000006 00 04 FB OOCOF CALLS #4, LIBSSIGNAL 
rh 8 goeig es deat lio 
01 04 AA D1 GoctA CMPL 4(WINDOW), #1 
13° 12 Cie BNEQ 
50 00000000'FF47 DE 00C MOVAL  @SMAP_SIZECR7], RO 
50 FC AO 01 C1 0c 8 ADDL3 #1, -%(RO), RO 
50 08 AA D1 00C2D CMPL 8 (WINDOW), RO 
11, +1€ 0c 1 BGEGU 84$ 
57 DD OOC33 83$: | PUSHL 7 
01 Dd 00C35 PUSHL #1 
000000006 8F ODD 00¢37 PUSHL aVERIFYS BADBITMAP 
000000006 00 03 FB 00C 3D CALLS # L1BSSIGNAL 
00000000'FF47 DF bOCh4 84$:  PUSHAL @NSMAPCR 
6E 04 C2 00C4B SUBL2. #4, (SP) 
50 00000000'FF47 DE O0C4E MOVAL a@SMAP_SIZECR7], RO 
04 AE FC AO we 09 3 0096 ASHL #9 sR«ROD, 4(§P) 
000000006 00 9 FB OOC5F CALLS #2, LIBSGET_VM 
58 D0 066 OVL RO, STATUS 
11 58 £8 00C6 LBS STATUS, 85$ 
58 DD 00Cé6C PUSHL STAT 
7E D4 coe CLRL.  =(SP) 
000000006 8F DD 00C PUSHL avERIFYS ALLOCMEM 
000000006 03 FB O0C76 CALLS #3, LI SIGNAL 
00000000' FF DE C7 85$:  MOVAL @NSMAPCLR7J, R 
Ag DO 00C MOVL  -4(R2), P 
1 00000000'FF4 DF €89 MOVAL asMAP §IZECR7], R1 
50 FC OA f rs c 1 ASHL a, -Z(R1), 
83 1 ce 98 6s: MNEGL #1, (P)+ 
FA : F4 00C9B 87$:  SOBGEQ N 
50 00000000'FF4 DF CoE MOVAL aCLUSTER_FACTORCR7], R 
53 00000000' €EF FC A C cag ADDL =4(R0), BEVICE_CHAR. R 
59 53 oe cr (B1 DIVL3 -4(RO), R3, RO 
5 FC. OAT O¢ 3 CB6 ASHL = #12, -4(R1S, R3 
d7 00CBB DECL ON 
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5 1 CBD BRB 2 : 
09 FC a2 ES OOCBF Bs: BBCC a-4(R2), 89S + 2476 
F F2 OOCC4 89$:  AOBLSS RS fi $ : 
00000000'FF47 DF O0CCB PUSHAL a@VSMAPCR + 2681 
6 04 ce CCF SUBL2 #4, (SP) : 
04 AE FC OAT 9 Coe SHL #9. -4(R1), 4(SP) : 
AE 9F O00CD PUSHAB 4( : 
000000006 99 : FB O0CD CALLS We, LIBSGET_ vM : 
DO OOCE MOVL ys ; 
11 E8 OOCE LBS StAtUs, 0$ + 2482 
PRE gt : 
000000006 ef DD OOCE PUSHL AVERIFYS ALLOCMEM : 
000000006 Q : FB OOCF CALLS # s GNA : 
00000000'FF4 DE CFS 90$:  MOVAL SNgMAP R7], R + 2483 
5 FC AQ DO 00001 MOVL =4(RO) : 
50 00000000'FF4 DE 0005 MOVAL Te RO : 
52 FC AQ D0 00000 MOVL = : 
VAL rR : 
sore mm00000TFFEF OE BERT RUAN SM EISEN. 
3 11 0001 BRB : : 
82 3 pO 00020 918: OVL (P)+, (Q)+ : 
FA 0 F4 00D23 92$:  SOBGEQ N, : 
00000000'FF47 DF 00D26 PUSHAL @MULTSMAPLR7) : 2488 
6E 04 ce 990 ny SUBL2 » (SP) : 
04 AE FC AN 09 0030 HL #9. =4(R1), 4(SP) : 
04 AE 9F 00036 PUSHAB 4(S§P) : 
000000006 00 02 FB 00039 CALLS #2, LIBSGET_ VM : 
58 50 D 9049 MOVL RO, STATUS : 
11 58 £8 00D4 LBS STATUS, 93$ + 2489 
58 DD 00046 PUSHL TUS : 
7E 04 00048 CLRL step : 
000000006 8F DD OOD4A PUSHL aVERIFYS ALLOCMEM : 
— 8 00000000'FF4? 3 00037 93$ moune oo Hea ET: ao RO : 2490 
51 FC AQ 6 OD5F MOVL -4(RO), P : 
F DE 00D MOVAL a@SMAP_SIZECR7], R : 
50 FC 20 poaeagied a 7 nye ASHL 4&7 ize 3 ' 
02 11 09070 BRB 95$ : ; 
81 D4 00072 94$: CLRL  (P)+ : 
FB 0 F4 00074 95$:  SOBGEQ N, 94 : 
5A DD 00077 PUSHL WINDO > 2495 
0000v CF Qi FB 00079 CALLS #1, DELETE_WINDOW ; 
— 7C Ob7 CLRQ 0—_ = (§P) > 2502 | 
7E 7C€ 00D CLRQ = =(SP) : 
7E 7C 00D CLRQ = =(SP) : 
7E 7¢ Op CLROQ 43? : 
E 34 7D 00D MOV? #52, -(SP) : 
00000000° EF DD 00D PUSHL  CHANNE ; 
E D4 Op F CLRL 5sP) ; 
000000006 00 OC FB 00091 CALLS #12, SYS$Q10W ; 
04 00098 RET > 2503 


; Routine Size: 3481 bytes, Routine Base: CODE + 1818 
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Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 
1 ~3e0n 138% 96:39:98 VERIFY.SRCIVERIFY B32; 
308 ] ROUTINE READ_HOMEBLOCK(RVN): NOVALUE= 
0 1 !44 
oii 
og 1 ! FUNCTIONAL DESCRIPTION: 
7% This routine reads the first good home block of the currently open 
10 1! index file into the genera buffer. The code in this routine should 
\} ! } track the code in MOUNT. 
21g 1 | INPUT PARAMETERS: 
212 : RVN - Relative volume number. 
316 1 ' IMPLICIT INPUTS: 
aif : NONE 
519 1 | OUTPUT PARAMETERS: 
: 9 } NONE 
5 ‘ 1 i IMPLICIT OUTPUTS: 
5 ~s BUFFER - Contains a valid home block. 
2524 1! VOLUME COUNT - Count of volumes in volume set. 
$2 ons STRUCTORE_LEVEL - Structure level (1 or 2) of the volume set. 
: § } HOME VBN - VBN of the valid home block. 
33 8 1 | ROUTINE VALUE: 
EOE SBE 
32 1 1! SIDE EFFECTS: 
236 1! NONE 
25 & 
sage | 
2536 BEGIN 
Sete LOCAL 
2538 STATUS, ' General status value 
T3t4 OLD_STATUS; ! Save status for error message 
541 
a ! We keep reading until we get a block that reads without errors and looks 
sez : Like a home block. Track any error status for the eventual error message. 
545 2 OLD_STATUS = SS$_ABORT; 
546 INCR VBN FROM 2 TO 100 DO 
547 BEGIN 
a78 STATUS = $Q10W( 
54 FUNC=I0$_READVBLK, 
550 CHAN=. CHANNEL, 
e sem 
= e 
339 Passio. 
554 P3=.VBN); 
322 IF .STATUS THEN STATUS = .10SBC0]; 
225 IF NOT .STATUS 
228 THEN 
55 OLD_STATUS = .STATUS 
560 ELSE 
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; 61 IF 

: es 66 -BUFFERCHM2$B8_STRUCLEV] EQL 2 AND 

3 $8 6 -BUFFERLHM2SL_ALTIDXLBN] NEQ 0 AND 

é § 64 -BUFFERLHM2SW_CLUSTER] NEQ 8 AND 

; 2570 565 .BUFFERCHMOSW-HOMEVBN) NEQ 0 AND 

; 2571 266 -BUFFERLHM SU_ALHORE VEN NEQ 8 AND 

s 28 56 -BUFFERTHM2SW_ALTIDXVBNJ NEQ 0 AND 

; 257 568 -BUFFERCTHM2SW_IBMAPVBN] NEQ 0 AND 

: one 569 -BUFFERCHM2SL_IBMAPLBN] NEQ 0 AND 

3 75 2/9 -BUFFERCHM2SL_MAXFILESJ NEQ 0 AND 

3 ars 57 BUF FERLHM ot ate Sh NEQ 0 AND 

3 ef 2r¢ -BUFFERLHM2SW_RESFILES) NEQ 0 AND 

; 78 7 pas sees covet ees SBYTEOFFSETCHM2$W_CHECKSUM1)) AND 
: 2579 574 CHECKSUM2 (BUFFER, SBYTEOFFSET(HM2$W_CHECKSUM2) ) 
3; 2580 575 THEN 

: 2581 S76 & BEGIN 

: eB 258 é ' Block i Lid ODS-2 h block 

: oc S$ ava - ome OcK. 

+4 $eez 579 4&4 ! 

3; 2585 580 4 IF .RVN EQL 1 

3; 2586 581 4 THEN 

; 2587 286 5 BEGIN 

; 2588 58 STRUCTURE LEVEL = 

; $239 584 VOLUME COUNT = buf fencumasu SETCOUNT] 

3; 2590 585 IF WOCUMEC OUNT EQL O THEN VOLUME _C 1; 
; 2591 286 5 tf - VOLUME— EDUNT GTRU MAX_VOLUMES THEN” SIGNAL (VERIFYS _MAXVOLS); 
3 Seg 587 & END; 

; 259 588 4 HOMEVBN = .VBN; 

3 2594 589 4 RETURN; 

; S292 590 4 END 

; 2596 591 ELSE IF 

3; 2597 206 »RVN EQL 1 

3; 2598 59 (. BUFFER RH? Su sTRUCLEV] E Eat WHI SC _LEVEL1 OR .BUFFERCHM1$W_STRUCLEV] EQL HMISC_LEVEL2) AND 
3 2599 2594 BUF FERCHM1$W_CLUSTER 

: $000 Sep ~BUFFERCHM1$L_1BMAPLBN oH, ite 

3 2601 596 »BUFFER WA SUCRAXE ILES NEQ 0 AND 

3 $008 $202 -BUFFERCHM1$W_IBMAPSIZE] NEQ 0 AND 

: 2605 598 CHECKSUM2(BUFFER, SBYTEOFFSET(HM1$W_ CHECKSUM?) ) AND 
: 2604 599 CHECKSUM2 (BUFFER, SBYTEOFFSET(HM1$W_CHECKSUM2) ) 
; 2605 600 THEN 

3; 2606 601 4 BEGIN 

: 2607 602 4 

3; 2608 603 4 ‘ ; Block is a valid ODS-1 home block. 

3: 2609 6046 4 

3: 2610 605 4 STRUCTURE LEVEL = 1; 

; 2611 t's) 4 VOLUME _COONT 1; 

; ol¢ 607 4 HOME VBR = .VBN; 

3; 261 608 4 RETURN; 

3; 2614 609 END; 

3; 2615 610 END; 

: 616 611 

> 26° 61¢ : 

; B: oi? : No good home block found. Report failure. 

; iv . 

3 620 615 2 SIGNAL(VERIFYS_FINDHOME, 1, .RVN, .OLD_STATUS); 

; 2621 616 END; ' 
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OOFC 00000 READ_HOMEBLOCK: 
WORD 


| 
x Save R2,R3,R4,R5,R6,R7 : 2504 3 
7 900000006 00 9E 0000 MOVAB LIBSSIGNAL., R? : ; 
§ 0 00000G EF 9€ 0000 MOVAB CHECKSUM2, R6 : ; 
0000000' EF 9 019 MOVAB BUFFER, R5 : ‘ 
54 C pO 0001 MOVL #44, OLD_STATUS + 2545 ‘] 
52 2 p 001A MOVL #2, VBN + 2546 2 
— 7C 9010 1$: CLRO = = (§P) + 2554 .; 
43 D4 O001F CLRL = = (SP) : ; 
52 DD 00021 USHL  VBN : : 
7E 0200 BF 3C 000 ; MOVZ2WL #512, -(SP) : ; 
5 DD 00 PUSHL 5 ; 34 
E 7C O0002A CLRQ. = (SP) : 3] 
00000000' Ef 9F 000 § PUSHAB I0SB : . 
1 DD 000 PUSHL #49 ; 3; 
90 AS DD 000 PUSHL CHANNEL : eS 
7E D4 00037 CLRL. ss =(S : 3; 
000000006 99 of FB 00039 CALLS #12, SYS$Q10W : 7 
D 90049 MOVL RO, STATUS “Pee “= 
OA ea : 0004 BLBC STATUS, 2$ + 2555 eB 
53 00000000' a C 00046 MOV2WL OSB, STATUS : 3, 
06 ; E8 00040 BLB TUS, 3$ + 2557 > 
54 53 (0 60050 2$: MOVL STATUS, OLD_STATUS + 2559 3] 
00DB 31 0005 BRW : ; 
02 OD AS 91 00156 38: CMPB = BUFFER+13, #2 : 2562 3 
7F 12 00074 BNEQ § ; 2; 
08 aS 05 0005¢ TSTL BUFFER+8 : 2563 ee 
7A 13 O005F BEQL ; ,) 
OE AS B85 00061 TSTW  BUFFER+14 > 2564 s; 
75 13 00064 BEQL : ; 
10 AS B85 00066 TSTW §BUFFER+16 : 2565 ; 
70 13 00069 BEQL : 3 
12. AS 8 00068 TSTW BUFFER+18 : 2566 : 
68 13 0006 BEQL : : 
16 AS 8 0007 TSTW  BUFFER+20 : 2567 ; 
66 13 0007 BEQL ; ; 
16 AS B 9007 TST UF FER+22 > 2568 3 
61 13 00078 BEQL ; : 
18 AS D5 OOO7A TSTL UF FER+24 : 2569 : 
5¢ 1 9070 BEQL : ; 
1c «6AS «DS 0007F TSTL UFFER+28 : 2570 : 
57 13 00082 BEQL ; : 
20 AS 85 00084 TSTW UF FER+32 : 2571 3 
52 1 0087 BEQL ; : 
22. =A 2 0089 TSTW UFFER+34 > 2572 : 
4D 008C BEQL $ ; : 
3A pd 9 PUSHL #58 > 2573 : 
5 DD PUSHL R5 ; : 
6 3 FB 009 CALLS #2, CHECKSUM2 ; : 
4 5 009 BLBC $ : 3 
7E O1re BF 3C 6 98 MOV2WL «#510, -(SP) > 2574 ; 
: 5 DD 0009D PUSHL RS ; : 
66 02 FB 0009F CALLS #2, CHECKSUM2 ; : 
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RO, 5$ 
RVN, #1 


STRUCTURE LEVEL 


poe VOCUME_ COUNT 


#1, VOLUM 
yOLUME. COURT. OUNDSS 


syERIFYS MAXVOLS 
» LIBSSIGNAL 


RVN, #7 
BUFFER+12, #257 
BUFFER+12, #258 
BUFFER+8 
BUF FER+2 
BUFFER+G 
BUFFER 
$ 
#58 
RS 
#2, CHECKSUM2 
#510, -(SP) 
"2, CHECKSUM2 
#1. STRUCTURE_LEVEL 
UME_COONT 
VBN, HOMEVEN 
#100 #1, VBN, 1$ 
Status 
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Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 
13-808-1 3b 99:33:49 YOERIFY SREIVERIYY o350% 
ore 4 AL 
75 4 HEADER: REf BBLOCK, ! Pointer to current header 

of8 : READ_COUNT; ! Count of blocks to read 

678 4 

i ? Establish the count of blocks to read and execute the read. 

681 4 READ COUNT = MINUCINDEX_BUF_COUNT, .EOFC.RVN-1] + 1 = .VBN); 

$ ¢ 4 STATOS = $Q10W( 

6 4 FUNC=]0$_READVBLK, 

684 4 CHAN=. CHANNEL, 

685 4 10SB=10SB, 

6 $ 4 Bsetto er’ 

687 4 P2=512 * .READ_COUNT, 

688 4 P3=.VBN); 

689 4 IF .STATUS THEN STATUS = .10SB(0]; 

st 

692 4 ! If an error occurred, read each block separately, reporting any 
6935 4 ! errors. Each header that reads with an error is deleted, since 
$38 ? it cannot be trusted. 
3696 4 IF NOT .STATUS 

697 4 THEN 
2698 5 BEGIN 

699 5 INCR XVBN FROM 0 TO .READ_COUNT=-1 DO 

700 6 BEGIN 

701 6 CAL 

rs 6 HEADER: REF BBLOCK, ! Pointer to header 
2703 6 FILE_NU . ' Current file number 
sie ? FILE ID: BBLOCKCFIDSC_LENGTH]; ! Current file ID 
2706 6 

707 6 ' Execute the read. 

708 6 ! 

709 6 HEADER = BUFFER + .XVBN * 512; 

710 6 STATUS = $Q1]0W( 

711 6 FUNC=10$_READVBLK, 

re 6 CHAN=. CHANNEL, 

713 6 10SB8=10SB 

714 6 P1=. HEADER, 

715 6 peed s 

716 6 P35=.VBN + .XVBN); 

717 6 if »STATUS THEN STATUS = .10SB(0); 

718 6 F NOT .STATUS 

719 § THEN 

739 BEGIN 

721 7 

f ; 4 Get a clean file ID. 

724 7 FILE_NUMBER = .VBN + .XVBN - .HEADER_OFFSETC.RVN-1); 

725 7 aati = .FILE_NU 3 

7 § 7 FILE_IDLFIDSB_NMX) = gf OF UMBERSTS..8> 

7 7 IF .STRUCTURE_LEVEL tng 

728 7 THEN FILE_IDCFID y-SE03 s etait $¥_F1D sea) 

729 7 it aye FIDSW SEQ) = .HEADERLFHISW_FID_SEQJ; 

730 7 FILE_IDCFID$B_-RVN) = .RVN; 
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Issue the error. 


HEADER_ERROR( 
VERIFY$_READHEADER, FILE_ID, .HEADER, 
« STATUS); 


If we are repairing damage, rewrite the header with a 
deleted header. In either Gase. ensure that the header 
» 


SQN 


Er ee et ee et Pe a oh oh ah ad ad ah had 
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' 

‘ 

' 

! 

i 

ea = VERIFY _HEADER(.HEADER, FILE_ID); 
- STRUCTURE _LEVEL EQL 1 AND 


7 
7 
7 
7 
7 
7 
7 
7 
7 
7 ' 
7 ! 
4 } is invalidated so that we will not process it. 
7 HEADERCFH2$B_STRUCLEV) = 0; 
s, f IF DO_REPAIRTNO_CONF IRM) 
ree 4 DELETE_HEADER(FILE_ID, .HEADER) 
749 7 BITVECTORC.IMAPC.RVN-1], .FILE_NUMBER=1] = FALSE; 
750 6 ND; 
751 5 END; 
P36 4 END; 
753 4 
754 4 
755 4 ' For each header, verify that it is a valid file header. 
P38 2 If it is, process it. 
758 4 HEADER = BUFFER; 
759 4 INCR XVBN FROM 6 TO -READ_COUNT=1 DO 
760 5 BEGIN 
761 5 LOCAL 
r6¢ 5 IDENT_AREA: REF BBLOCK, ' Pointer to ident area 
763 ‘5 MAP_AREA: REF BBLOCK, ! Pointer to map area 
764 5 EXT SEQ, ' Current extension sequence 
765 5 FILE_NUMBER, ' Current file number 
168 : FILE_ID: BBLOCKCFID$C_LENGTHI; ' Current file ID 
768 5 
16? 5 Get a clean file ID. 
771 FILE_NUMBER = .VBN + .XVBN - .HEADER_OFFSETC.RVN-1); 
77 Ae E ee mY = .FILE_NUMBER; 
77 FILE_IDCFIDSB_NMX) = gf US OEESTS 
774 IF “STRUCTURE LE EL in 
775 THEN FILE_IDCFID SEQ) = HEADER rliseu 1D see) 
77 EL St FILE_IDCFID$W°SEQ]) = .HEADERCFHIS$W_FID_SEQ); 
77 FILE_IDCFID$B_RVNJ = .RVN; 
119 
780 ' Validate the header. In ODS-2, a valid header is to be taken as 
781 ' valid even if the index file bitmap shows it as available. in 
§ ! ODS-1, a header corresponding to a clear index file bitmap bit 
! is not to be examined. 
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VERIFY Main module 16-Sep-1984 :15: AX=-11 Bliss-32 V4.0-74 P 3 
v04=000 eree= the $gise:4g = FONT ebhesyee Ye 85544 age 55 
: 2794 7 8 NOT .BITVECTORC.IMAPL.RVN-1], .FILE_NUMBER-1) 
: $13? 158 THEN TATUS = FALSE: 
: $138 i : 
: Sep 738 Hea 4s 
: 801 198 6 BEGIN 
3 rit ate ? Header is valid. 
: 2805 799 6 IDENT_AREA = .HEADER + .HEADERCFH1$B_IDOFFSETI«2; 
; 806 800 6 MAP_AREA = .HEADER + * HEADEREFAISB POF SETI «2; 
 SpO8 B02 
; 809 608 & IF NOT .DUAL_ALLOC_PASS 
oh abs eS 
; B18 807 7 THEN . 
: Sis 809 8 Ceca 
: sea 810 8 FILENAME: VECTORCFI2$S_FILENAME + FI2$S_FILENAMEXT + 1, BYTE), 
: seis S28 BONERS” 
: 2819 B15 é EXTENSION_SEGMENT; 
Be Re 
: 282 816 8 IF .STRUCTURE_LEVEL EQL 2 
: es: ia 
: 825 819 9 HS COPY ( 
; 826 820 3 F128$_FILENAME, IDENT_AREALF 12$T_F ILENAMEJ, 
3 3898 y 3 FI2$S_FILENAME + FI2$S_FILENAMEXT + 1, FILENAME); 
; $850 $f 4 0 IF (.HEADERCFH2$B_MPOFFSET) - .HEADERCFH2$B_IDOFFSET) * 2 
3 831 825 é GEQU SBYTEOFFSET(FI2$T_FILENAMEXT) + F12$S_FILENAMEXT 
: £3 2827 9 ~ CHSMOYVE ( 
> 2834 828 9 F12¢S_F LLENAMEXT, 
> 2835 829 9 IDENI AREACE $1 FILENAMEXT), 
; 836 8 ; 3 FILENAME CF 12$S_FTLENAME]); 
; 5 Be 9 LENGTH = 
> 2839 833 9 CHSFIND_CH(FI2$S_FILENAME + FI2$S_FILENAMEXT + 1, FILENAME, XC* ‘) 
3 Bey : : 4 = FILENAME; 
; Bie 8 6 9 OWNER = .HEADEKCFH2SL FILEOWNER) 
; BA Z 3 EXTENSION, SEGRENT = .READERCFH2$W_SEG_NUM); 
+ 2845 9 g ELSE 
; 5 0 BEGIN 
; 41 9 LENGTH = MAKE STRING 
+ 2848 BAe 9 IDENT _AREALFI1$W_FILENAME) = SBYTEOFFSET(NMBSW_NAME), 
: 2849 B4 9 FILENAME) ; 
3; 2850 4 9 
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ER<16,1 Bet GRouP]; 
EXTENSION SEGMENT = .MAP WARER FM1$B_EX_SEGNUM); 


'$Z2L) !86AF !%u', 


guise sea), 
aR 


A bys 
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a 


een NEQ 0 

FAO_(" extension !UL', .EXTENSION_SEGMENT) ; 
EOL(); 
END; 


Make sure the index file bitmap indicates that the header 
is valid. Remember the file sequence number and the 
back Link FID. 


te ee Oe = ee ee 


BITVECTORC. unaet, RVN-1], ae NUMBER=1) = 
ECTORC.SEQMAPC .RVN-1), ii E _NUMBER=1 + eWORDS -FILE_IDCFID$SW_SEQ); 
F STRUCTURE LEVEL EQi 2 
HEN 
BEGIN 
LOCAL 


BACK_ID: REF BBLOCK; 


BACK_ID = VECTORE BACKMAPL eRYN-1. (. FILE NUMBER=1)#3 ; ,WORDJ; 

BACK” 1DCF 1D$W_NUM RCFH2$W_BK_F IDNUM); 

BACK-IDCFID$W~SEQ) = HE AOER FHOSW_BK_F IDSEQ); 

BACK” IDCFID$W~RVN HEADERCFH2$W~BK ~F IDRVN 

IF BAC K_IDCFIDSB_ RVN) EQL 0 THEN BACR_IDCFI 1088 _RVN] = .RVN; 
END; 


Other processing executed only if not an extension header. 


BEGIN 
IF “STRUCTURE LEVEL ott 2. 2 
THE EADERCFH2$W_SEG Fo, 0 
eLee “AAP AREACFM1SB_E ER's Ee EQL 0 
HEN 
BEGIN 
LOCAL 


FAT: REF BBLOCK, 
FCH: REF BBLOCK; 
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1 
TbrSep-1984 02:18:29 YAN-11 BLing-82 4.0274 
IF NOT .DUAL_ALLOC_PASS 
THEN 
BEGIN 


Directory entry should point to this file. 
BITVECTORC.LOSTMAPL.RVN=-1), .FILE_NUMBER=1] = TRUE; 


Get file characteristics and attributes pointer. 
if .STRUCTURE_LEVEL EQL 2 
THEN 


EGIN 
FCH = HEADER FH2SL FI 
FAT = HEADERCFH2SW_RE 


or 


BEGIN 
FCH = HEADERCFH1$W_FIL 
FAT = HEADERLFH1$W~REC 


Report file marked for delete. 
if .FCHCFCHSV_MARKDEL) 
THEN 


BEGIN 
HEADER_ERROR(VERIFY$_DELHEADER, FILE_ID, .HEADER); 
IF _DO_REPAIR() 


BEGIN 
ENTER _WORK(WRK_K_ DELETE, FILE_ID); 
VECTORC .SEQMAPL .RVN-11, -FILETNUMBER-1 ;,WORD] = -1; 


END; 


Report file deaccess locked. 


if .FCHCFCHSV_LOCKED) 
THEN 


BEGIN 
HEADER _ERROR(VERIF YS Semen 


F 
IF (STATUS = DO_REPATR(ALLOW_D 
THEN 


o Fl 
LETE 


BEGIN 
IF .STATUS<1,1> 
THEN 


BEGIN 
ENTER WORK (WRK _K DELETE, FILE 
VECTORE . SEGRAPE .RVN- J, .FILE 


ELSE 
BEGIN 
FCHLFCHSV_LOCKED) = FALSE; 
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VERIFY 
00 
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-0 
: 2965 959 11 WRITE_HEADER(FILE_ID, .HEADER); 
: 296 oe9 18 END; = 
: 296 961 END; 
; 2968 306 END; 
: 2969 96 
; 2970 +44 
: 30) 364 Report file containing suspected bad blocks. 
: 297 96 if .FCHCFCHS$V_BADBLOCK] 
: 2974 968 HEN - 
3 2? 398 HEADER_ERROR(VERIFY$_BBLHEADER, FILE_ID, .HEADER); 
: Sota 33 | Renenber dt bi 
3 ' Remember director t. 
: 5979 358 . 
: 2980 974 8 
; 2981 975 8 -FILE NUMBER NEQ FIDSC_MFD 
3; 298 44 8 
; 298 977 9 BEGIN 
: 2984 978 9 IF .STRUCTURE_LEVEL EQL 2 
: 2985 979 9 TH 
: 2986 980 9 -HEADERCFH2$V_DIRECTORY] 
: 2987 981 9 SE 
; 2988 356 9 -FATCFATSB_RTYPE] EQL FATSC_FIXED AND 
; 2989 98 ¢ -FATCFATSW_RSIZE) EQL NMBSC— _DIRENTRY AND 
3; 2990 984 9 - IDENT _AREACF 11$W_ FILETYPE) EQL ZRAD50_11 ‘DIR' 
: 2991 985 9 
3 299 seas 8 THEN 
; 299 987 8 BITVECTORC .DIRMAPC.RVN-1], .FILE_NUMBER-1] = TRUE; 
3: 2994 2988 8 
: 2995 seen H 
3; 2996 990 Check creation date. 
: 2997 2991 8 
: 2998 $236 8 CHECK DATE ( 
3; 2999 344 8 IBENT AREACFI2$Q_CREDATE 
; 3000 994 8 IDENT _AREACFI1$T gas 
; 3001 995 8 VER RIFYS_F FUTCREDA 
3; 300 338 H FILE_10> 
: 300 99 HEADERS; 
; 3004 998 ; 
; 3005 999 
; 3006 000 Check revision date. 
; 3007 001 
3 bos OOS CHECK ATE( 
3 IDENT _AREACF 12$Q_REVDATE 
; 3010 004 IDENT AREA FL ist. REVDATE), 
; 3011 5 VERIFYS_ FUTREVDAT, 
3 Big FILE_ID> 
: 301 -HEADERS; 
3; 35014 3 
; 3015 
: Big By Check backup date. 
; O18 Oe if . STRUCTURE LEVEL EQL 2 
3 Bs 01 THEN 
3 3 014 CHECK_DATE( 
3; 35021 015 IBENT_AREACF12$Q_BAKDATE], 


1 
VERIFY, sain module 1B-Sen-1984 08:15:20 YAKeT1 BLisg-32 v4.0: 


FUTBAKL..:, 


Oooeco 
= 
NO 


END; 


; 30 

is Of 

: 0 5 19 

i $098 a8) 

: 8 . 8 § 4 Process map area. 

: 3031 025 7 TOTAL_SIZE = 0; 

; 9 é $ f MAP_PROCESS(.HEADER, .RVN, .HEADER, FILE_ID, +1); 
: 3034 7 

: 034 0 § 7 ' If file has extension headers, run down the chain 
3 037 4 ? 4 checking them. 

. on 

: 3040 034 8 BEGIN 

> 3041 035 8 IF .STRUCTURE_LEVEL EQL 2 

: ok 036 8 THEN .HEADERCFH2$W_EX_FIDNUM] NEQ 0 

; she 037 8 ELSE .MAP_AREACFM1SW_EX_FILNUM] NEQ 0 

> 3044 038 ; ND 

: 3045 039 

BG BEE ih 

: 3048 4g 8 EXT_HDR: REF BBLOCK, 

; 3069 04 8 EXTIMAP_AREA: REF BBLOCK, 

: 3084 045 8 PREQ_FILE_ID: BBLOCKLFIDS$C_LENGTH); 
Be Be 

: 3054 048 8 EXT_HDR = .HEADER; 

: 3039 049 8 EXTMAP_AREA = .MAP_AREA; 

. Ss ° . 

: 3057 051 8 PREV_FILE_IDCFIDSW_NUM] = .FILE_IDCFIDSW_NUM); 
> 3058 05¢ A PREV-FILE-IDCFID$W-SEQ] = .FILE-ID F IDS seal; 
: 3059 05 PREV-FILE-IDCFID$W-RVNJ = .FILE-IDCFIDSW-RVNI: 
Be BR vibe ciy 

: 06¢ 056 9 IF .STRUCTURE_LEVEL gal 2 

3 306 057 9 THEN .EXT-HDRCFHOSW_EX_FIDNUM] NEQ 0 

; 3064 058 9 ELSE .EXT“MAP_AREACFM1$SW_EX_FILNUM] NEQ 0 
Be He | — 

: 3067 061 BEGIN 

: 3068 06¢ 9 LOCAL 

: 3069 9 EXT_FILE_NUMBER, 

; 070 oes 4 EXTIFILE-I1D: | BBLOCKCFIDSC_LENGTH); 
: 307 9 

3 O78 03 4 Get clean file rumber and RVN. 

: 079 3 9 if «STRUCTURE _LEVEL EQL 2 

; O77 71 16 BEGIN 

: 3078 072 1 EXT_FILE_NUMBER = .EXT_HDRCFH2$W_EX_FIDNUM); 
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VERIFY 
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N 1 
VO4-000 petemcany 1eaSepa19e¢ 19:27:99 WEatrvesneSveniry-030s1 sos 


1 § THEN 
1 BEGIN 
1 IF NOT .DUAL_ALLOC_PASS 
1 THEN 
| BEGIN 
: JF DO.REPAIR() 
i IF READ_HEADER(PREV_FILE_ID, BUFFER_2) 
\ a CLEAR_EXT_FID(PREV_FILE_ID, BUFFER_2); 
1 EXITLOOP; 
END; 


! Adjust pointers to new header. 


! 
' 
EXT_HDR = BUFFER 2; 

EXT“MAP_AREA = .EXT_HDR + .EXT_HDRCFH1SB_MPOFFSETJ#2; 
EXT-SEQ™= .EXT_SEQ # 1; 


! Check segment number. If this check fails 
' clear the forward Link that points to the bad 
header and exit the Loop. 


if 


WN] OC OONAU SUN “OOVONOUS WN —OOW 


ke ee eee nbaudess 


BEGIN 
IF . STRUCTURE LEVEL EQL 
THEN .EXTHDRCFHOSW 


2 
SEG_NUM] NEQ .EXT_SEQ 
ELSE .EXT“MAP_AREALFM 


1$B8_EX_SEGNUM] NEQ .EXT_SEQ 


PDR D Pr Be Be BBB EE PWN 


BEGIN 
IF NOT .DUAL_ALLOC_PASS 
THEN 


ess. 
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BEGIN 
HEADER_ERROR(VERIFYS_INVEXTHDR, EXT_FILE_ID, .EXT_HDR); 
1F DO REPAIR() 


BEGIN 
If READ_HEADER(PREV_FILE_ID, BUFFER_2) 
p ChEARAEXTFID(PREV FILE 1D, BUFFER_2); 


kt a at 
DOOO DOOOWOO00 —PINNYIN 2 ] — “DOO WOCOCCOCVOOWOOOOOOVOOOOOOOOO0- 3 | “OO0n 


' Remember previous file ID in case we need to 
clear the forward Link. 


PREV_FILE_IDCFIDSW_NUM) = .EXT_FILE_IDCFIDSW_NUM); 
PREV-FILE-IOCFIDSW-SEQ) = .EXT-FILE-IDCFID$W-SEQ); 
PREV-FILE-IDCFIDSW-RVN) = .EXTFILE-IDCFIDSW-RYN); 
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1 
Do map area processing. 
MAP_PROCESS(.EXT_HDR, .EXT_RVN, 


AX-11 BLi 
VERIFY.S 


sep-198e 09:15:29 


IF NOT .DUAL_ALLOC_PASS 
THEN 
BEGIN 


do -32 v4.0-7 
RC ERIFY Bie: 


-HEADER, FILE_ID, 0); 


F 1D$B_RVNI 


' Check extension header back Link. It should 
point to primary header. 
If .STRUCTURE_LEVEL EQL 2 
THEN 
BEGIN 
LOCAL 
BCK_RVN; 
BCK_RVN = .EXT_HDRCFH2$8_BK TpRvN) 
if “BUR _RVN EQC 0 THEN BCK_RVN = .EXT_FILE_IDCFIDSB_RVN); 
-EXT_HDRCFH2$W_BK_FIDNUM] NEQ .FILE_IDCFIDS$W_NUM] OR 
~EXT- HOR FHoSW_BK-FIDSEQ) NEQ .FILE— DEF 1DSu_SEQ) OR 
-EXTIHDRLFH2S8BK-FIDNMX] NEQ .FILE-IDCFIDS$B~NMX) OR 
4 Bek ARV N NEQ .FILE_IDCFIDSB_RVNJ 
BEGIN 
HEADER_ERRO 
VERIFYS. INVEXTBACK, EXT_FILE_ID, .EXT_HDR); 
1F 00. REPAIR() 
BEGIN 
EXT_HDRCFH2SW_BK_FIDNUMS = .FILE_IDCFIDSW_NUMJ; 
EXT_HDRCFH suk -F 1DsEG} = .FILE_IDCFIDSW_SEQ); 
EXT_HDRCFH2SW BK FIDRVN) = .FILE_IDCFIDSW_RVN); 
IF TEXT _HDRCFACSB_BK_FIDRVN) EQL” .EXT_FILE_IDC 
THEN EXT_HDRCFH2SB_BK_FIDRVN] = 0; 
uRite NAEADERTEXT FILE_ID, .EXT_HDR); 
END; 
END; 


' Mark as a referenced extension header. If 
already marked, report multiple references. 


iF TESTRITSS COI TVECTORE .EXTRAPC EXT _RtHT2, 
HEADER ERROR ( 


.EXT_FILE_NUMBER-1)) 


VERIFYS_MULTEXTHDR, EXT_FILE_ID, .EXT_HDR); 


! Check file owner. If not equal, should be 
corrected to charge space to rightful user. 
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d 2 
j = - 3 3 = = v= ' 
pte ser NECSSBISEE QGDF:ES Rae OSAR HERI BS2SF re 18) M8 
PATEPATSY FFBYTE) = 0; 
URI TE HEADER (FILE. ID, «HEADER); 


Read-check the file if requested. 
IF .QUALCQUAL_READ] 
IF .FILE_NUMBER GEQU FIDSC_MFD 
READ_CHECK(FILE_ID, .HEADER); 


iF .QUALCQUAL_USAG) 
THEN 


BEGIN 
IF my Mana date Ent 2 


EN VECTORC.OWNER ae eS ty ger ae = .HEADERCFH2$L_F ILEOWNER] 
ELSE VECTORL.OWNERC.RVN-1), .FILE NUMBER-1) = .HEADERLFHI$8 UICGROUPI“*16 + 
VECTORC .ALLOCATIONC.RVN-1], .FILE NUMBER-1) = .TOTAL SIZE + Gxt SEQ + 1; 
a -USAGEC.RVN-1], .FILE_NUMBER=1] = ROT(.FATCFATSL_EFBLKI, 16); 


.FATCFATSL_EFBLK]_NEQ 0 AND 
y PATCFATSUCFFBYTE] EQ. 0 


VECTORC .USAGEC .RVN-1), et aes ry gree = 
nn: -VECTORC.USAGEC.RVN-1), .FILE_NUMBER-1) - 1; 
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Update quota info. 
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| 
Update usage info. 


i Invalid or deleted file header. If it is marked busy in the 
! bitmap, complain and rewrite a valid deleted header. 
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; : if QUOTA_ACTIVE AND .FILE_NUMBER GEQU FIDSC_MFD 
He COUNT _QUOTA( 
30 . READERCFH2$L_FILEOWNER), 
4e .TOTAL_SIZE + .EXT_SEQ + 1); 
END; 
44 END | 
5 ELSE 
39 BEGIN 
rt Extension header. Just process the map area. 
39 MAP _PROCESS( .HEADER, oRVN, HEADER, FILE_ID, -1); 
5 END | 
38 ELSE | 
ee BEGIN 
33 
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! 
iF NOT .DUAL_ALLOC_PASS 
THEN 


2S Se 
ao 
_ Sa 


r¢ 
BEGIN 
‘ IF .BITVECTORC.IMAPC.RVN-1), .FILE_NUMBER-1) 
? ang OS 
HEADER _ERROR(VERIFY$_BADHEADER, FILE_ID, .HEADER); 
§ HF gO REPAIRG) 
DELETE _HEADER(FILE_ID, .HEADER); 
$9 END; 
ty — 
a! * 
7 
74 


HEADER = .HEADER + 512; 
END; 


~ 
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VBN = .VBN + INDEX_BUF_COUNT; 
END 


Deaccess the index file. 
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TOR UNC=108 DEACCESS 
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CHAN=. CHANNEL) ; 
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SA 33 21 2C 4C SA 35 21 C 4C SA 38 21 28 1C O26FD P.ABK: .ASCII <28>\C'82L,'52L,!227L) ‘'86AF !%U\ z 
55 $3 21 20 20 46 41 ¢f 38 21 20 20 $p 4C 0270C 3 
55 21 20 6& 6F 69 73 6E 65 74 78 65 20 20 * bs 738 P.ABL: .ASCII <15>\ extension !UL\ 3 


OFFC 00000 SCAN_INDEX: 
WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 


SE 90 AE 9E 99 MOVAB -112(SP5, §P ° ; 
00000000' vai DD 99 6 PUSHL VOLUME _ PCOUNT + 2645 
, 30 90 BSBW «96S : 
0040 «&F 00 soueeat C ou 1$: MOVCS me (SP), #0, #64, FIB > 2654 
2 00 00009" FF i DE 0001p MOVAL —@ACCTLERWNJ, RO ; 2655 
pe (feos ERT sy 
E Be F CLRQ = =( SP) : re 
re Ot CLRQ  =(SP) ; 
7E D4 0004 LRL —s_ = (SP) : 
D8BD CF 9F 0004 PUSHAB FIB_DESC : 


F 2 
VERIFY Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 Page 1 
vo er8ee= 138s 93:33:99 | aL yeSdes 2844-8335 ve 1 
7E 7C 00049 Q 8 =(SP) : 
0000009 ’ cr oF 4 USHAB 1088 : 
7E _ SF 9A MOVZBL #114, =(SP) : 
0000000 EF pp 3 HL CHANNEL : 
000000006 00 of r ‘ CALLS #13, syssai0w : 
OA aa BLBC TATUS : 
of 00000000" EF i 6A MOVZWL OSB, STATUS : _ 
1 6E E 1 BLBS TATUS, + 2665 
: DD 00074 28 PUSHL STATUS : 
DD 076 PUSHL RVN : 
000000006 BF pr SoovA PUSH: SVERIFYS. OPENINDEX ; 
000000006 90 4 FB 000 9 CALLS #4, LIBSSIGNAL : 
0 00000000'FF48 DE 0087 3$: MOVAL @HEADER_OFFSETCRVNI, RO > 2671 
08 AE FC AO 01 Ci O008F ADDLS #1, =4(RO), : 
50 00000000"FF48 DE 00095 4$: MOVAL @€OFCRVNJ, RO + 2672 
FC AO 0 A pi 9090 CPL VBN, =4(RO) : 
0807 31 OO0A4 BRW 95$ : 
50 FC AO 08 AE C3 OO0OA7 S$: SUBL3. VBN, -4(RO), RO + 2681 
50 06 O00AD INCL ; 
00000040 =F 50 D1 OOOAF CMPL =s_ RO, #64 ; 
04 1B 000 BLEGU 6$ 3 
50 40 8F 9A 0008 MOVZBL #64, RO ; 
16 AE 0 b0 9008¢ 6$: MOVL RO, READ_COUNT F 
— 7C 90¢9 CLRO 3s = (§P) : 2688 
7E D4 000¢ CLRL = = (SP) : 
146 AE bp 00C4 PUSHL VBN : 
7E 24 «AE 09 00C7 ASHL #9, READ_COUNT, -(SP) : 
00000000" EF 9F 990¢¢ PUSHAB BUFFER ; 
E 7C 000D LRQ -(SP) : 
00000000' EF 9F 000D4 PUSHAB 10SB ; 
1 DD OOODA PUSHL #49 ; 
00000000' EF DD d00¢ PUSHL CHANNEL : 
E D4 O00E CLRL (sp) F 
000000006 00 C FB O0E4 CALLS #12, SYS$QI10W : 
6E 0 DO O00EB MOVL RO, STAT : 
0D 5E £9 OO0EE BLBC STATUS, 7$ : 2689 
oF 00000000" EF 3c O00F1 MOVZWL IOSB, STATUS : 
0 6 59 O0F8 BLBC STATUS, 7$ > 2696 
5 00r} te Soore 78 ae a : 2699 
0083 ij 6 f BRW 136 : 
50 5 09 78 00104 8s: ASHL #f xvBN : 2709 
54 00000000'EF 40 3 1 MOVAB BUFFERCROJ, HEADER ; 
FE Ok Oot] EtRL. | =¢8P) Boden 
52 53 16 AE C1 00114 ADDL3 BN, XVBN, R2 F 
bo 119 PUSHL R : 
7E 0200 F C 11 MOVZWL #512, -(SP) : 
¢ Fe O01 PUSHL HEADER 
00000000' EF 9F 001 PUSHAB 1058 ; 
1 DD OO120A PUSHL #4 : 
00000000' EF DD 0012C PUSHL CHANNEL : 
| 
| 
j 
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S 
~1984 AX-11 BLisg-32 V4.0-74 Page 105. 
VERIFY, Rain modile iSosto-19Re 08:15:20 Yancy aLisgcs2 v4. 0-742 % 
7E D4 001 2 CLRL 55?) : 
FB 001 CALLS #12, SYS$SQIOW ; 
women: 0 95 08 e MOVL RO STATUS : 
A 6 ‘ 1 : BLBC STATUS : 2717 
gf 00000000" Fag ih Seuzwe Less trays ‘ns 
00000000'FF48 DE 00148 9S: MOVAL  @HEADER_OFFSETCRVN], RO : 2724 
ie. s 3 1 : SUBL2  -4(RO), FILE NUMBER : 
70 A 52 8B 13 MOVW FILE. ER, FILE ID : 37 5 
50 52 0 j ai 1 : EXTZ7V #16, 78 FICE. NUMBER, RO + 2726 
75 «OA 50 90 0016 MOVB RO, FILE_ID+ F 
05 00000000' FF p} 0164 cMPL STRUCTURE. LEVEL, #2 : 2727 
72. AE OA AG 06 00160 Ov IDEMEADER), FILE_ID+2 + 2728 
72. «AE 04 0? Be O17 10$:  MOVW  4(HEADER), FILE_ID+2 t 2729 
he gP0B Batre TTF Oy gitecion one 
A ad 8 
om gm ERE BES NO gees : 
weet Ti 07 A494 ett CLRB 7(HEADER) ~ : 2744 
7E D4 00192 CLRL se > 274 
0000v CF Qi FB 00194 CALLS i, DO REPAIR : 
20 D 0019C¢ PUSHL HEADER + 2747 
7% A oF 80196 PUSHAB FILE ID : 
0000v CF 09 re oo1A) CALLS fe BELETE_HEADER g 
50 epee DE a 12$ ROVAL tes RO + 2749 
@-4(RO), 13% : 
9 de 8 14 ‘ f 0018? 138: AOBLSS REA D_COUNT, XVBN, 14% > 2699 
a 31 O01BE 16$: BRW 8$ ose 
56 00000000' FF E ict 15$: ROVAB BUFFER, HEADER : 2758 
seen 06C9 sf arec BRW 92$ pe 
8 Me att se: ADDL XVBN, RO, R1 Bog 
" 6 00000000" FF 48 5 1b3 MOVAL  @HEADER_OFFSETCRVN], RO : 
57 1 FC C HE SuBL3 4(RO) » a FILE NUAB Des 
50 57 ss OB 10 PF iE EXTZV ni6, “Hep FIL Fit FNUMBER, RO : 378 
2 05 00000000' ai D1 iF cMPL TRUCTURE LEVEL, #2 : 2774 
72, AE OA Ms 06 1F Rov (HEADER), FILE_ID+2 : 2775 
17$:  MOVW  4(HEADER), FILE_ID+2 : 2776 
a: mos $0 18; ROWE VN, FILE-ID¥« Had 
ie DD PUSHL HEADER 3 
F 1 CALLS #2, VERIFY_HEADER ; 
ceeese? 06 1 MOVL U : 
6 00000000" EF D 1 CMPL § STRUCTURE_LEVEL, #1 : 2787 
oe 


be * Se 
RIFY Main module 16-Sep AX-11 Bliss-32 V4.0-74 Page 1 
V04=000 eats Pk ed God ee Sd Pt PD coe ge 196 
13 12 F BNEQ ; ; 
50 00000000'FF4 p 1 MOVAL sree. RO + 2788 3 
4 Pet 9 MOVAB : ; 
02 FC 24 EO BBS Rs 4 nahh), 19$ Po ; 
50 00000000' EF D 19$: | MCOML DUAL t ALLoC PASS, RO ; 2803 ; 
ost BRY . ag 
e 66 A if 20$: MOVZBL (HEADER) + 2799 ; 
6648 3E 00244 MOVAW HTH OE IDENT_AREA : : 
A 01 Ab 9A 00248 MOVZBL 1tHen DER) > 2800 ; 
oc A 664A ; 4¢ MOVAW (HEADER) ER103, MAP_AREA : ; 
. ors $i 4 BRu ‘S08 ; 2803 : 
03 00000000" EF it 59 7 21$: BBS #1, QUAL, 22$ + 2806 ; 
0092 31 F BRW 28$ : ; 
02 00000000' ff D} 62 22$: CMPL TRUCTURE LEVEL, #2 + 2816 : 
0057 8F 20 69 se i 68 MOVCS #20, CIDENT_AREA), #32, #87, FILENAME : 2820 : 
SA 5B C2 00274 SUBL2 R11, R10 + 2824 ; 
5A 02 C4 00277 MULL2 #2, R10 : ; 
00000078 = &F A D1 0027A PL R10, #120 + 2825 : 
08 1F 00281 BLSSU  23$ : ; 
2c OA 36 AD 0042 8F ¢8 0283 MOVC u66, 54(IDENT_AREA), FILENAME+20 + 2830 : 
18 AE 0057 BF 0 3a 00 88 23$: LOCC #32. #87, FILENAME : 2833 ; 
2 12 0029 BNEQ 24$ : : 
1 D4 00294 CLRL sR : ; 
50 18 Ar Hs 0 96 24$: MOV FIL + 2834 : 
50 51 50 C 9A SUBL3. RO, R1 s LENGTH : ; 
51 3c v0 0 60 (HEA : 836 ; 
52 04 Ad 3C OO2A MOVZWL OCHEADERD. * EXTENSION SEGMENT : 283 ; 
1E 11 002A 26$ : 2816 : 
18 AE 9F O02A8 25$:  PUSHAB FILENAME : 2841 3 
FA AS 9F OO2AB PUSHAB -6(IDENT_AREA) + 2842 ; 
000000006 EF 02 FB 00 AE CALLS #2, MAKE~STRING : ; 
51 08 <A6 9A 0028 MOVZBL 8(HEADERT, OWNER 3 2845 $ 
38 09 Ab 9A 00289 MOVZBL CHEADER) | if > 2846 ; 
51 10 1 52 FO 002B INSV_R2 OWNER ; ; 
52 0c BE 9A 002C MOVZBL a@MAP raReA, TBGTENSTON. SEGMENT : 2847 : 
1 DD 002C6 26%:  PUSHL OWNER + 2856 ; 
1c Ar F 002C PUSHAB FILENAME : : 
50 DD 002cB SHL LENGTH : ; 
7E FC AD OA 0 CD MOVZBL FILE_ID+4, -(SP) : : 
7E FA AD C 00201 MOVZWL FILE-Ib+2, -(SP) : : 
D D3 PUSHL FILE é : : 
FCF8 CF 9F 0020 PUSHAB P.ABR : : 
0000v CF 7 F D CALLS #7, FAO : : 
g Ds O0cE ist EXTENSION, SEGMENT ; 2858 3 
pd E PUSHL EXTENSION, SEGMENT : 2860 : 
FD06 CF OF O02E6 PUSHAB P.ABL : ; 
9900v CF FB OOCEA CALLS ‘ , FAO : ; 
0000V CF FB OOEF 378: CALLS EOL : 2862 : 
0 00000000'FF48 DE O02F4 28$: MOVAL aha RN}. RO ; ; 
4 FF OA 5 FC MOVAB : : 
00 FC BO E BBSS = R4, Rho). 29$ : : 
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0000v CF 
Q 00000000'FF4 
FC B044 
63 6 
6 
74 =OAE 
000000006 8F 
0000v CF ; 
0000v CF 
4 0 
ee oi 
70 At 
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VERIFY Main module 1b-56 -1984 215: AX-11 Bliss-32 V4.0-74 Page 108 
V5e e000 13-80 8=13Re 9¢:33:98 VERIFY. SRC VERINY B3oc4 ° (98 
0000v CF FB O03E6 CALLS #2, ENTER WORK : ; 
gf 00000000'FFS8 DE O03E MOVAL @ conaptnen) RO + 2954 ; 
FC B044 ! AF i RINE GU g , a-4(RO) CRS) Psoe : 
63 40 BF BA OO3FA 39%: BICB2 #64, (FCH) : 2358 ; 
é BD F PUSHL HEADER + 2959 ; 
74 AE - OF PUSHAB FILE ID : ; 
0000v CF FB 4 CALLS #2, QRITE HEADER : ; 
10 63 : E1 00408 40$: BC wid, (FCHY, 41 : 3967 ; 
bp 40C PUSHL HEADER : 2969 ; 
74 AE SF 004 PUSHAB FILE_ID : ; 
000000006 af DD 41 PUSHL ayERTEYS BBLHEADER : : 
0000v cf 3 ; 41 CALLS #3, HEADER ERROR : ; 
4 D1 OO41C 41S:  CMPL Fit ; + 2975 ; 
0 13 O041F BEQL 44 : ; 
02 00000000' EF 01 00421 CMPL § STRUCTURE_LEVEL, #2 : 2978 : 
7 if 04 8 BNEQ 42 : ; 
22 35 AG F GOA BBC #5, S3(HEADER), 44$ + 2980 ; 
1 1 04 F BRB 43$ : ; 
01 62 91 00431 42$:  CMPB (FAT), #1 + 2982 : 
1 Ne 0434 BNEQ 44$ : ; 
10 02 =A g 0436 CMPW 30s 2(FAT), #16 + 2983 ; 
1 é 043A BNEQ  44$ : F 
1A7A_—s BF 06 Ad Bi 004 ¢ CMPW © 6(IDENT_AREA), #6778 + 2984 : 
0D 12 D044 BNEQ 44$ : ; 
50 00000000'FF48 DE 0444 43$:  MOVAL a@DIRMAPCRVN], RO + 2987 : 
00 FC BO 54 € O44¢ BBSS  R4, a-4(RO), 44$ : : 
56 DD 00451 44$: | PUSHL HEADER + 2997 ; 
74 AE 9F 00453 PUSHAB FILE_ID + 2994 ; 
000000006 8F pp 456 PUSHL #VERTFYS_FUTCREDAT : : 
19 Ad OF 0045¢ PUSHAB 3 (IDENT AREA) : ; 
16 AD OF 00465F PUSHAB g (IDENT AREA) : 2993 ; 
0000v CF 0S FB O46¢ CALLS #5, CHECR_DATE + 299% ; 
56 DD 046 PUSHL HEADER : 3007 : 
74 AE 9F 00469 PUSHAB FILE _ID : 3004 ; 
00000000G 8F DD res PUSHL #VERTFYS_FUTREVDAT : 3 
0C Ad 9F 004 PUSHAB 12(IDENT~AREA) : 3 
1E Ad SF 0047 PUSHAB 30(IDENT~AREA) : 3003 : 
0000v CF 05 FB 047 CALLS #5, CHECR_DATE > 3004 : 
62 00000000' FE D1 0047D CMPL STRUCTURE LEVEL, #2 : 3012 : 
5 12 00484 BNEQ 45$ : : 
56 pd 0486 PUSHL HEADER : 3019 ; 
74 AE 9F 004 PUSHAB FILE ID : 3015 3 
000000006 GF DD ag8 SHL #VERTFYS$_FUTBAKDAT 3 3 
. p4 4 CLRL. - =(SP) : ; 
2E AD 9F 00493 PUSHAB 46CIDENT AREA) : : 
0000v CF 05 FB 0049 CALLS #5, CHECR DATE ; ; 
00000000" FF D4 0498 458: CLL Tofat size : 3035 : 
74 AE OF 4A PUSHAB FILE_ID ; ; 
DD OO4A PUSHL HEAD 3 ; 
0140 BF BB 004 PUSHR #°M< : : 
0000v CF 5 FB OO4A CALLS #5, MAP_PROCESS : ; 
B D4 0048 CLRLSséEXT-S ; 3032 ; 
02 00000000' ai e 4B CMPL STROCTURE LEVEL, #2 : 30 : 
| 5 4BA BNEG 6$ : : 
0& Abd B5 004BC TSTW  14(HEADER) : 3036 : 
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VERIFY Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 
v04=000 122838-1382 99:33:98 VERIFY SREIVERIFY 03064 
7 11 004BF BRB 47$ ; 
50 Oc AE o3 C1 004C1 46$:  ADDL3 #2, MAP_AREA, RO 3; 
8 Ace TSTW RO) 3 
A 13 0048 47$: BEAL 4 .: 
4 6 D0 O04CA MOVL HEADER, EXT_HDR 4 
A 0c AE dO 004CD MOVL § MAP_AREA, ERT_MAP_AREA ? 
5 58 D0 00401 MOVL = RVN> EXT_RVN 3 
68 AE 70 AE DO 00404 MOVL  FILE_ID,~PREV_FILE_ID 3 | 
6C AE 74 AF BO 00409 MOVW FALELID+4, PREV_FICE_1D+4 } 
50 D4 OO4DE 48$: CLRL R 3 | 
02 00000000" EF D1 004E CMPL § STRUCTURE_LEVEL, #2 : i 
7 12 O04E BNEG 49$ 3; 
0 06 Q04E9 INCL = RO : 
OF Ad B O4EB TSTW © 14(EXT_HDR) | 
03 11 O04E BRB 50$ :; 
02 AA BS 004FO 498 TSTW g(EXT_MAP_AREA) .} 
3 13 OO4F3 508 BEQL 4$ ; 
16 0 : O4F BLBC =_-«RO,_:‘518 ‘; 
5 OF AS 3C O04F MOVZ2WL 14(EXT_HDR), EXT FILE_NUMBER .3 
53 08 10 13 AG FO O04F INSV  19(EXTTHDR), #167 #8, EXT_FILE_NUMBER f 
60 AE OF AS D0 0050 MOVL 14(EXT“HDR), EXT_FILE_ID 3 
64 AE 1 ad 8 0507 mov IBCEXTCHDR) EXTFILE-1D+4 3; 
53 O¢ AA 3C $080 51$ MOVZWL gCEXT MAP AREA), EXT_FILE_NUMBER 3 
60 AE 02 AA D 051 MOVL (EXT“MAP-AREA), EXT~FILE~ID ij 
64 AE 01 : 051 MOVW #1, ERT_FILE_ID+4 +} 
64 AE 00518 52$: TSTB EXT FILE_1D+% a; 
4 1 OOdiE BNEQ 3$ .; 
64 «OA 5 90 005 MOV EXT_RVN, EXT_FILE_ID+4 # 
5 64 AE 9A 00524 538: MOVZBL EXTFILE_ID+%, EXT_RVN 33 
OE 50 £9 00528 BLBC = RO, 56 } 
07 53 D1 00528 CMPL EXT _FILE_NUMBER, #7 +} 
09 12 005 3 BNEQ 6$ 5} 
07 62 AE Bi 09 CMPW XT_FILE_ID+2, #7 3 
03 12 00534 548:  BNEQ 6$ 3 | 
01¢0 31 00536 55$: BRW 9$ +t 
00000000' EF 55 D1 00539 56$: = CMPL EXT_RVN, VOLUME_COUNT 3 3 
12 1A 0054 BGTRU 57$ 
51 FF AS OE 094 MOVAB -1(R3), R1 
50 00000000'FF45 DE 0054 MOVAL a@MAXFICIDXCEXT_RVNJ, RO 
FC AO 51 D1 0054 CMPL 1, -4(RO) 
26 if 55 BLEQU 58 
62 00000000' BFE 57$:  BLBS | DUAL_ALLOC_PASS, 62$ 
6 pp B PUSHL_ HEADER 
7% AE OF PUSHAB FILE Ib 
00000000G 8F oD PUSHL #VERTFYS$_INVEXTFID 
9000v CF FB CALLS , HEADER ERROR 
0000v CF FB CALLS #0, bo REPAIR 
C3 E LBC OR s 
6 bp 7 PUSHL HEADER 
74 AE 9F 0057 PUS FILED 
7F 11 0057 BRB 6 
00000000" EF 3 7A 58$:  PUSHAB BUFFER 2 
64 AE OF PUSHAB EXT_FICE_ID 
0000v : ; CALLS #2, READ-HEADER 
69 & BLBS 
B 00000000' EF E BLBS  DUAL_ALLOC_PASS, 62$ 
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1982 98:27:93 WeairvesneSvenry:032; 


R_2, EXT_HDR 

ADR) 

DR) CROJ, EXT_MAP_AREA 
TURE_LEVEL, #2 


#16, 4(EXT_HDR), EXT_SEQ 


AL_ALLOC_PASS, 63$ 

EXT_HDR 

EXT FILE 10 

#VERIF YS” INVEXTHDR 

#3, H ERROR 

#0, DO_REPAIR 

RO, 668 

BUFFER 2 

PREV_FILE_ID 

+e READ_READER 

RO, 66$ 

BUFFER 2 

PREV_FILE_ID 
CLEAR_EXT_FID 
FILE_ID, PREV_FILE_ID 

LE-1D+4, PREV_FICE_ID+4 


I 
7 
FILE_ID 
#°M<RG,RS,RO> 

#5, MAP PROCESS 
DUAL_ALCOC_PASS, 68$ 
TRUCTURE_LEVEL, #2 
EXT_HDR), BCK_RVN 


FILE_ID+4, BCK_RVN 
EXT_HBR), FILE_TD 


EXT_HDR), FILE_1D+2 
EXT_HDR), FILE_1D+5 
#8, FILE_ID+4, BCK_RVN 


SYD BB SMM VBI NOM OO INO 
Om QOW< X KMNIOO—-" ODO x OON OC 
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#8, (EXT_MAP_AREA), EXT_SEQ 
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VERIFY Main module 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 Page 111 
v04=000 13-808-1 382 96:33:49 VERIFY. aesveaitt osert 9 7) 
03 1 A BNEQ 1$ ; 
46 AG 4g i CLRB phtexr HDR) + 3224 
54 po 7F 71$:  PUSHL EXT_HOR : 5 
conoy ge A Pe Boe, EAN BET tafe Rennes ; 
f 00000000'FFS DE 9 728: OVAL | pte ose RO + 3234 
10 FC BO ; E3 $3 BBCS R3, a-4(RO), 73$ : 
4 BD 69 PUSHL EXT_HDR : 3337 
64 AE 9F 0069A PUSHAB EXT FILE 1D : 3236 
000000006 i DD PUSHL aVERIEY MULTEXTHDR : 
0000v ¢ 3 FB A CALLS #3, HEADER ERROR ; 
2 00000000' FF p ona 73$: CMBL STRUCTURE CEVEL., #2 + 3245 
3c AG 3c AG if B1 CMPL SO(EXT_HDR), 60 (HEADER) : 3246 
05 11 B6 BRB $ ; 
C8 AG 08 Ad 81 74$:  CMPW B(EXT_HDR), 8 (HEADER) + 3247 
37 13 006BD 75$: EQL 8$ : 
4 pd 6B PUSHL. EXT_HDR + 3251 
64 AE OF 006C1 PUSHAB EXT~FILE_ID : 
000000006 8F DD 006C4 PUSHL #VERIFY$ WRONGOWNER ; 
0000V CF 3 FB OO6CA CALLS #3, HEADER_ERROR : 
0000v CF 0 FB O6¢F CALLS #0, B60 REPAIR : 3252 
1F 0 £9 006D4 BLBC =—_s«aRO,_ 78S ; 
02 00000000' ai D1 00607 CMPL STRUCTURE LEVEL, #2 3 3255 
7 if 06D BNEG ; 
3C AG 3c = AB sO=DO-006E MOVL (HEADER), 60(EXT_HDR) : 3256 
05 11 006E BRB 7 ; 
08 Ad 08 Ad BO OO6E7 76$:  MOVW 8(HEADER), 8(EXT_HDR) : 3257 
54 DD O6EC 77$:  PUSHL EXT_H : 3258 
64 AE OF OO6EE PUSHAB EXT~FILE_ID F 
0000v CF 02 FB 006F1 CALLS #2, WRITE_HEADER 3 
FDES 31 O6F6 78$:  BRW 4 > 3054 
03 00000000" | EF iF id 79$: BLBC DUAL_ALLOC_PASS, 80$ : 3266 
53 04 a2 10 9¢ 00703 80$:  ROTL #16, 4(FAT), R3 : 3276 
53 00000000' ef D1 07 CMPL  TOTAL_SIZE, RS ; 
9 13 0070F BEQL $ F 
01 00000000' EF D1 00711 CMPL TRUCTURE_LEVEL, #1 : 3277 
5 12 O78 BNEQ 1 ; 
03 D1 OO71A CMPL FILE_NUMBER, #3 ; 
eB 1B 0071D BLEGU ; 
é pp 71F 81$:  PUSHL HEADER : 3280 
74 AE 9F 00721 PUSHAB FILE ID : 
000000006 8F DD 00724 PUSHL #VERTFY$_BADHIBLK ; 
0000v CF 3 FB OO7OA CALLS #3, HEADER _ERROR ; 
0000v CF FB 72F CALLS #0, p EPAIR : 3281 
13 ‘ 7 BLBC RO $ : 
04 a2 00000000" EF 10 9c 00737 ROTL #16, TOTAL_SIZE, 4(FAT) ; 3284 
56 po 74 PUSHL HEADER : 3285 
74 AE 9F 0074 PUSHAB FILE ID ; 
0000v CF 02 FB 2074 CALLS #2, QRITE_HEADER : 
08 A : aa 828: TSTL (FAT) : 3291 
4 4D BEQL 4$ F 
53 08 A2 1 ¢ 74F ROTL #16, 8(FAT), R3 : 3292 
: 50 D 136 CLAL Rg ; 
Oc A2 B5 00756 TSTw «12 (FAT) : 
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VERIFY Main module 16-Sep-1984 215: AX-11 Bliss-32 V4.0-74 Page 11 
V5e 000 1ergeen13Be 9Gi58:49 | at yeSaESvemity o3004 oe 1} 
12 00759 BNEQ 83$ : 
06 00758 INCL. R : 
53 C2 00750 83$ SUBL2 RO, : 
00000000'_ EF D1 007 CMPL 3, TOTAL_SIZE + 3293 
1B 007 BLEGU 84$ : 
pp 769 PUSHL HEADER : 3296 
74 AE 9F 00768 PUSHAB FILE_ID : 
000000006 8F DD 007 PUSHL #VERTFY$_SADEFBLK : 
000v CF FB 007 CALLS #3, HEADER_ERROR : 
000Vv cr FB if CALLS ’ . DO REPAIR : 3297 
50 00000000' EF 1 €1 007 ADDL3 #1. TOTAL_SIZE, RO + 3300 
08 23 4 9 Se 4 9 OTL #16, RO, BCFATS : 
0c A2 B4 007 : LRW =. 12 (FAT) + 3301 
4 pp 7 PUSHL HEADER : 3302 
74 AE 9F 00793 PUSHAB FILE ID : 
9000y CF FB 00796 CALLS #2, QRITE_HEADER : 
OF 00000000' EF E1 198 84$: BBC #2, QUAL, 85$ : 3309 
4 D1 OO7A CMPL EILENUMBER, 4 > 3311 
A iF O7A6 BLSSU. 8B 3 
6 DD OO7A PUSHL HEADER : 3313 
74 AE 9F OO7AA PUSHAB FILE ID : 
0000v CF FB OO7AD CALLS #2, READ_CHECK : 
6F 00000000 Et 4 €1 00782 85$: 8B #4, QUAL’ 8 é : 3318 
0 00000000" FF48 DE O07BA MOVAL GOUNERCRVN » RO : 3322 
54 FF A? 9E O7¢e MOV =1(R7), R4 : 
54 04 C4 007¢ MULL2 #4 : 
02 00000000' EF D1 bo7¢9 CMPL TRUCTURE_LEVEL, #2 > 3321 
12 00700 BNEQ : 
50 54 FC 6AO OCI 007¢ ADDL3 =4(RO), R4, RO + 3322 
60 3C =A6 DO 007D MOVL O(HEADER). (RO) : 
1§ 11 0708 BRB ; 
50 54 FC AO 4 7DD 86$:  ADDL3 -4(RO), R4, RO : 3323 
33 09 A6 9A Ove MOVZBL 9 (HEADER), R3 : 
53 10 78 OO7E ASHL : 
1 08 A6 9A OO7EA WOVZBL B(HEADER), R1 : 
60 4 51 C1 zee ADDL3 RI, R ) : 
0 00000000'FF48 DF 7F2 87S MOVAL @AL OCATIONCRYNI, RO : 3324 
50 4 FC AO Ci OO7FA ADDL3 <-4(RO), R4, R : 
51 58 00000000' EF 1 OFF ADDL TOTAL SIZE EXT_SEQ, R1 : 
0 1 Al 9 7 MOVAB 1(R1)~ (ROS : 
00000000'FF4 DE 0 MOVA QUSAGECRVNI, RO > 3325 
50 4 FCO § 1 ADDLS =4(RO), R4& ; 
6 08 A2 1 1 ROTL #16, BCFATS, (RO) : 
08 A p 1 TSTL (FAT) : 3327 
0 BEQL $ 3 
oc A 8 TSTW (FAT) : 3328 
0 BNEQ 88$ ; 
60 D DECL (RO) : 3331 
63 00000000' EF E9 9 88S BLBC QUOTA_ACTIVE, 91$ : 3337 
04 7 DI CMPL FILER : ; 
—E iF BLSSuU 9 ; 
50 58 00000000" EF gi ADDL3. TOTAL_SIZE, EXT_SEQ, RO > 3342 
AO 9F PUSHAB 1(RO) ; 
7E D4 0084 CLRL = = (SP) : 3339 
) 3c = AB. SCéDD «0084 PUSHL  60(HEADER) : 3340 
0000v CF 03 FB 0084 CALLS #3, COUNT_QUCTA : 
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RIFY Main module 16-Sep-1984 215: AX-11 Bliss-32 v4.0-74 Page 113 
Voee000 ae tee rik SRE Ba cot i Ob Bt sale So 
47 11 4A 8 1$ : 9) : 
7E 01 ce § 4C 89S MNEGL #1, =(SP) : $883 ; 
7% AE OF 4F PUSHAB FILE_ID : ; 
6 DD 2 PUSHL HEADER 3 : 
0140 BF 8B 4 PUSHR #*M<R6,R8> : 3 
0000v CF 5 Fe 8 CALLS #5, MAP_PROCESS : : 
4 1 D BRB i$ t 2793 : 
31 E9 0085F 90$: BLBC ~=_«RO,-:918 : 3359 ; 
0 00000000'FF4 Dg Bbe ROVAL alMAPCRVNI, RO ; 3362 : 
22 FC =O BO 37 E1 00 st BBC R7, a-4(RO), 91$ : ; 
é bb 0 j PUSHL HEADER > 3365 ; 
74 AE OF 7 PUSHAB FILE _ID : ; 
000000006 at DD 453 PUSHL eyenteys BADHEADER : ; 
0000v CF 3 FB gr CALLS #3, HEADER_ERROR : : 
0000v cf 6 FB 0881 CALLS #0, : 3366 3 
A E 088 BLBC =E_s«aRO,: 91 ; : 
é bb 008 PUSHL HEADER : 3368 3 
7% AE F 00888 PUSHAB FILE ID : : 
O000v CF 02 FB rt) CALLS #2, BELETE_HEADER : : 
fe 0200 (6 3 00893 91$:  MOVAB 512(R6), HEADER + 3374 ; 
02 10 AE 14 AE F 00898 92$: AOBLSS READ_COUNT, XVBN, 93$ : 2759 : 
11 00 BRB 94$ : : 
F92C 31 OOBAO 93S: BRW 16$ : : 
08 AE 00000060 8F (CO 008A3 94S: ADDL2 #64, VBN : 3378 : 
F7E? 1 008AB BRW 4$ : e672 ; 
E 7C OO8AE 95S CLRQ  =(SP) : 3386 : 
7E 7 00880 CLRQ  =(SP) : : 
7E 7C 0088 CLRQ =(SP) : : 
7E 7C 008B4 cLRQ Ss =(S ; : 
7E 34 7D 00886 MOVQ #52, =(SP) : : 
00000000' EF DD 00889 PUSHL CHANNEL ; : 
E D4 OO8BF CLRL. = = (SP) : : 
000000006 00 OC FB 008C1 CALLS #12, SYS$Q10W ; 3 
F742 58 01 04 AE F1 008CB 96$: ACBL 4(SP), #1, RVN, 1$ > 2645 : 
04 OO8CF RET : 3388 : 
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14- =tep- VERI 
ROUTINE VERIFY_HEADER(HEADER,FILE_ID)= 


\ee 
t 


i FUNCTIONAL DESCRIPTION: 
: This routine determines if the block given it is a valid file header. 


i INPUT PARAMETERS: 
HEADER - Pointer to header. 
FILE_ID - Purported file ID. 


i IMPLICIT INPUTS: 
i NONE 


! 
i 
' 
1 
! 
i] 
1 
1 
1 
: 
' QUTPUT PARAMETERS: 

} NONE 

' IMPLICIT OUTPUTS: 

NONE 

' ROUTINE VALUE: 

! if invalid file header 
! 1 if valid file header 

2 if deleted file header 
' 
! 
! 
! 


i SIDE EFFECTS: 

! NONE 

BEGIN 

MAP 
HEADER: REF BBLOCK, ! Pointer to file header 
FILE_ID: REF BBLOCK; ! Pointer to file ID 

First check the structure level. 

if ,HEADERCFH2SB_STRUCLEV] NEQ .STRUCTURE_LEVEL 

RETURN 0; 


IF .STRUCTURE LEVEL EQL 2 
THEN 


BEGIN 

!' Check the area offsets and the retrieval pointer use counts for 

consistency. 

ir 
-HEADERCFH2$B_IDOFFSET) LSSU SBYTEOFFSET(FH2$L_HIGHWATER)/2 OR 
-HEADER[FH2SB_MPOFFSET) LSSU .HEADERCFH2$B_IDOFFSET] OR 
-HEADERLFH2SB_ACOFFSET] LSSU .HEADERLFH2SB_MPOFFSETJ OR 
-HEADERLFH2SB_RSOFFSETJ LSSU .HEADERLFH $8 COFFSETJ OR 
-HEADERCFH2$B8_MAP_INUSE] GTRU .HEADERCFH2SB_ACOFFSET] - .HEADERCFH2$B_MPOFF SET) 


THEN as 
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3 +¢$ RETURN 0; ; 

4 44 3 

5 te8 ; 
44 ! At this point, we have verified that the block at least once was a . 

‘ “31 valid file header. : 
459 4 § ' Look at the file number in the header. If zero, this is a 3 
60 4 ! deleted header. : 
461 454 ! 3 
re | 5 IF $ 
46 4 $ -MEADERCFH2$SW_FID_N a Ee EQL 8 AND 3 
464 $2 -HEADERCFH2$B_FID_NMX] EQL : 
65 456 3 
$8 459 RETURN 2; $ 
46 460 : 
468 461 3 
4 re Now compute the header checksum. : 
a! ree: IF NOT CHECKSUM(. HEADER) : 
7 RETURN 2; 3 
74 rh 3 
75 468 3 
476 469 ' Check file number and file sequence number. : 
477 470 ! s 
478 471 IF : 
79 47 -HEADERCFH2SW_FID_NUM) NEQ .FILE_IDCFIDS$W_NUM] OR 3 
480 47 -HEADERCFH2SB_FID_NMX) NEQ .FILE_IDCFIDSB_NMX) OR $ 
3) ore ; -HEADERCFH2SW_FID_SEQ) NEQ .FILE_IDCFIDSW_SEQ : 
8 476 RETURN 2; g 
84 77 3 
+H 478 ELSE 3 
479 BEGIN 3 

87 480 LOCAL 3 
88 481 MAP_AREA: REF BBLOCK; 3 
30 rh 
91 484 ! Check the area offsets, the extension RVN, and the retrieval pointer : 
3 485 data for consistency. ; 
94 iF 
95 488 - HEADERCFH1$B_IDOFFSET Le NEQ FHISC_LENGTH / 2 OR 3 
38 489 one -HEADERCFHISB8_MPOFFSET)] NEQ (FHISC_LENGTH + FIISC_LENGTH) / 2 : 
98 491 RETURN 0; 3 
99 49 é 
500 49 5 
+4 a re AREA = .HEADER + .HEADERCFH1SB_MPOFFSETIJ*2; : 
308 -MAP _AREACEN1 $B_EX RV] NEQ 0 OR ; 
ry: 9 -MAP~AREA $8- COONTS pues weg 1 OR 3 
505 98 ont AREA atte LBNSIZE : 
238 99 . MAP_AREA FM 1$8- INUSE GTR MAP Mapes yt: | AVAIL] 0 : 
50 500 MAP “AREA FM1$8~ -AVAILJ GTRU 355 = = (MAP AREA + Heise’ POINTERS = .HEADER) / 2 AY 
508 at THEN ; 
509 2 RETURN 0; : 


25 
32 


Mw 


valid fi header. 


! 
deleted header. 
if .HEADERCFH1$W_FID_NUM] EQL 0 
THEN 
RETURN 2; 


Now compute the header checksum. 
iF NOT CHECKSUM( HEADER) 
RETURN 2; 


Check file number and file sequence number. 


WN "CO OCONOUSWN"OODOVNOUE WO 


.HEADERCFH1$W_F I 
-HEADERCFH1 SWF I 


HEN 
RETURN 2; 
END; 


D_NuM} NEQ .FI 
D7SEQ) NEQ -FI 


PUPUPEPV IV LVLIV IV SVSU LVS SIV SIV SIVSIOSTSISISIS ISIS 


is 
LE_ 


a 
NOuw 


Header is OK. 
RETURN 1; 
1 END; 


o 


AAA AAA AIP PPUPPONINIPNDY 2 St SSS | OOO 


FAP UNO Sos Nore OOO WOME UI MODee 


QPUPVIVIVDVPULVSV SUSE PUSU SUSU SISSY 


WAN 
PEW 
Wino Oo 


003C 00000 VERIFY_HEADER: 
~WOR 


Dd 
55 944644 oe 43 MOVAB 
54 000000006 EF 9€ 000 MOVAB 
3 0 AC D 10 MOVL 
65 07 A2 0 Fe 14 CMPZV 
1A BEQL 
0080 31 O00IC BRW 
53 08 ag dO lf 1$ MOVL 
02 g D1 3 CMPL 
i 4 BNEQ 
26 62 9 CMPB 
12 If B BLSSU 
62 01 Ae 91 PB 
OC iF BLSSU 
01 = A2 02 Ad 91 MPB 
05 if BLSSU 
02 A2 03 Ad 91 A CMPB 


DCE 1DSu_NUM} OR 
DCF IDS$W~SEQ) 


3 
Main module 1b-se -1984 02:15: AX-11 Bliss-32 V4.0-74 
2-8 08- 1 3e 96:33:49 VERIFY SREIVERIVY o3504 
' At this es: we have verified that the block at least once was a 


i Look at the file number in the header. If zero, this is a 


Save R2,R3,R4,R5 
STRUCTURE LEVEL, RS 
CHECKSUM, ~R4 
HEADER. R2 

#9, #8, 7(R2), STRUCTURE_LEVEL 
7$ 


FILE_ID, R3 
STRUCTURE LEVEL, #2 
(R2), #38 

(R2), (R2) 


$ 
sr. 1(R2) 
(R2), 2(R2) 


3389 
3427 
47 
43 
3440 
3441 


3442 | 
3443 


VERIFY 
v04-000 


51 


51 


3; Routine Size: 


Main module 


3A 2 
51 
09 = 8=A0 


228 bytes, 


0S a3 
02 A3 


09 AO 


Om 
o—— =) 


4 
63 
02 AS 
50 
50 


Routine Base: 


3 
o 
wk 
A 
; ¢ 
RS 
08 A ? 
0 
Ob Ae 9 
78 (1 
3 D 
F 
3 E 
08 <A2 B 
6A 1 
OD Ag 9 
65 1 
OA Ad B 
5A 
ee 
Paes 
01 A2 9 
59 1 
01 A2 9 
624 3 
01 Ad 
4C 1 
06 AO 9 
46 1 
07 AO 9 
40 1 
08 ad 9 
eA 
0 ¢ 
OA C 
02 ¢ 
OOFF Ci 9 
8 
02 Ad 8B 
15 1 
52 D 
gf F 
02 23 ( 
st 
04 A2 
8 
2 
01 
50 
CODE + 2FFA 


—@ 
OW ODO WAS OM ONW  S S UUIM B NS 0 ODO WU F OF BM 


ovuo7g 
for 


SOOQOOOCOOCOCOCOOCOOCOVOOOOOOOOOOOOCOOCOOCOOGOOOOOVWVOVOOOOGOOOOOOOO 
o 


04 


Be. 
6-Se 
4-Se 


Pew 


ALN OOWS TOP NIMOOLFrenO 


5$: 


SSI AAA AAA MII 


6$: 


SESASASSERSSS 


oOo 
nm 


7$: 


pelelelelelelolelololololololol ol elelelolelelejejolojoio) 


SOSCSCSCOOCOOCOOOOCOOCOCOOOOOOOOOOCOOOOOOOOOOOoOO 


oo 
>> 


AX=-1 


, CHECKSUM 
RO, 9$ 
gR2), (R3) 
¥cr2), 5(R3) 
9$ 
10(R2), 2(R3) 
), #23 


2), #46 


MDD 
~~ 
wv 


RO 
RO], MAP_AREA 


AREA) 

MAP P_AREA), #1 

P_AREA), #3 

P_AREA), 9(MAP_AREA) 
-AREA, R2, Ri 


Bo SN OO SS OO 
ee BOO 
rm 


$ 
MA 
$ 
MA 
$ 
Pp 


#107 


a 
sec, R1 
#8, °9(MAP_AREA), R1 


g,%2) 


ne HE CKSUM 

$ 
Beka) (R3) 

4(R2), 2(R3) 

10$ 

#2, RO 

#1, RO 

RO 


1 ag a Be YS - 0. 0he 
VERIFY. SRCIVERIFY.832; 


SESH Se Se Se Se Se Se Se Se SESE e See Se Bee Oe ee Se Be Se Se Be Be Se Be Se Be Se Se Se Be Se Se He BeBe Se Be Be Se He Be Se Se Be Be Be Be Be Se 


<< 


Main module 


<< 
po 
— 
4 


i: 


WAAAWAAWAWAWAW AA AWNAWAI 


LUD DVD PUI PUSVSVSVSIVSVS STS ISIS 


PAAR AA WAIANAE 
A OOWDNAA EWN OS ODNAMNE WN 0 ODNAMUE WN OOONOUM 


NIAAO 


OOO 


wr 


Re ee ae ae aad Ab Ae Ad Ab Ad Atte et etme een eidh Ay APM 
SESSSPESSSsETS ore 
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Ba Se Oe Oe Be Be Se Se Fe Se FeO s Be Se Fe Se Se Se Ge Se He Se Se Se Ge Ge Gee Se Ge Ge Se Se Se Se Se Be Se SHS Os Os Oe Se Se Se Se HSH Se Se SH SESE Se eses 


AANA. AHI AAA. AAAI A AAA. AA AA AAA AA AAAI 
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Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 P 119 
ese b=13ke 98:33:99 Meare y Sat SveRity e309 oor 13) | v6 
ROUTINE MAP_PROCESS(HEADER,RVN,MAIN_HEADER,FILE_ID,SCAN_TYPE): NOVALUE= 


'e4 


' 
FUNCTIONAL DESCRIPTION: 
This routine computes the number of blocks mapped by the specified 


: 


file header, and marks them busy in the ‘'new’’ storage bitmap. 
INPUT PARAMETERS: 
HEADER 


RVN - Relative volume number of header. 

MAIN_HEADER - Pointer to file header for segment 0. 

FILE_ - Pointer to file ID of main header. 

SCAN_TYPE - +1: Primary header in file number order 

QO: Extension header in extension Linkage order 
-1: Extension header in file number order 


PUD SVSVSVSISISISISISIIIIY 


PUPP EB BB BE EWI 


IMPLICIT INPUTS: 
TOTAL_SIZE - Blocks mapped thus far. 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
Clusters marked nag Phe “new'’ storage bitmap. 


TOTAL_SIZE - Updated. 


ROUTINE VALUE: 
Number of blocks in header. 


SIDE EFFECTS: 
NONE 


BEGIN 
MAP 
HEADER: REF BBLOCK; ! File header 


L_MAP_POINTER= JSB: 

GLOBAL (COUNT=6, LBN=7, MAP_POINTER=8); 
GLOBAL REGISTER 
COUNT= 


* Retrieval pointer count 
LBN= , ' Retrieval pointer LBN 
MAP_POINTER= 8: REF BBLOCK; ! Pointer to scan map area 

EXTERNAL ROOTINE 

cece GET_MAP_POINTER: L_MAP_POINTER; ! Get value of ODS-2 file map pointer 


END_MAP_USED 
END~MAP7ALLOC; 


LINKAGE 


109 09 C9 0909 SIN SINS NN NS NSO OA AA OOOOroro 
MEAN SO ODNAU EWN 9 OD NOAM EWN O ODNOAU EWN OCONAOUES WOOO 


Pointer to end of used map area 
Pointer to end of allocated map area 


! Get pointers to the map area, the end of the used portion of the map area, 
and the end of the allocated portion of the map area. 


if .STRUCTURE_LEVEL EQL 2 
THEN 


RIPQDPRIPIPIP IP IPIPIPDPIPIA MAIN INININII|II|N IAI i a a tt td 8d 8 


PUPV PVP PUPP PUPPIES AIA UT 


See3s 


| 
| 
Pointer to file header to be processed. 
| 
| 
| 
| 
| 


SS 


3 
VO4-000 mg ee VerSep-1986 8:27:18 | WeatryesneaveRir¥ 830s poe 18) | 


94 
6 95 MAP *POINTER = ,HEADER + .HEADERCFH2$B_M OFFSET] 82: 
6 %6 END-MAP_ALLOC = .HEADER + .HEADERCFHOSB_ACOFFSETIJ® 
605 2 END-MAP_USED = .MAP_POINTER + FE ADCRCEROSB MAP. INGSEI#2; 
6 3 ELSE . 
60 8 MAP_POIN HEADER + .HEA SE 

4 

4 

4 

4 

= 


See 


T)*2; 
HECKSUM) ; 
+ MAP PAINTERCFM1 SB. INUSE]*2; 


= .MAP_POINTER 
= ,MAP POINTER + 


Loop until entire map processed. 
UNTIL »MAP_POINTER GEQA .END_MAP_USED DO 
BEGIN ~ 


LOCAL 
DIVIDEND: VECTORC2], ' Quadword for EDIV dividend 
REMAINDER ' EDIV remainder 
CLUSTER _NUMBER, ' Cluster bit number 
CLUSTER_COUNT; ! Count of clusters to mark ailocated 


— 


MEAN —OOONOUES WN “OO ONOU fw —O 


Get count and LBN. 
iF -STRUCTURE_LEVEL EQL 2 


GET_MAP_POINTER() 
ELSE 


DDD DOS DDH DPA AAA AAA AAA AAA AAO 


Www 


Convert count and LBN by cluster factor. Make sure that the values are 
even multiples of the cluster factor. 

DIVIDENDC1) = 0; 
H 


IDENDCO) = .COUN 
V(CLUSTER “fhctone. ‘RVN=1), DIVIDEND, CLUSTER_COUNT, REMAINDER); 
REMAINDER NEQ 0 


HEADER ERR R( 
VERIFY$_MAPAREA, 
VRICE 7 
MAIN-HEADER) ; 
1pEND{O) =". LBN; 
V(CLUSTER FACTORC. RVN-1], DIVIDEND, CLUSTER_NUMBER, REMAINDER); 
VRERAINDER NEQ 0 


IWIN AAI AI AIA I IRD — 


ODO NONE WIN CO ODN UNE WIN 0 OO NOME WIN OOD NOUS W000 


ONO VNE WN OO ODNOUS WI OOW 


an 
ws 


3 
¥O4~000 area 1eSeoct9Ge 98:39:90 WAG} OLLeHaBas¥%- 549 tent 


Loop for each bit of the bitmap that is affected. If we are doing the 
sult tie allocation pcan. report any bits that are multiply allocated. 
Otherwise, mark the bits allocated, and if they are already marked, 
mark them in the multiple allocation map and set the multiple 
allocation summary flag. 


a ete 


FE jDUAL-ALLOS PASS 
INCR, J FROM 0 TO .CLUSTER_COUNT=1 DO 
IF .CLUSTER_NUMBER + .J GTRU .SMAP_SIZEL.RVN=-1]*512*8-1 
EXITLOOP; 
IF 
-BITVECTORC .MULTSMAPC.RVN-1], .CLUSTER_NUMBER + .J] AND 
“SCAN_TYPE 
THEN 
BEGIN 
HEADER_ERROR( 
VERIFY$_MULTALLOC, 
-FILE_ID, 
;MAIN-HEADER 
i+ .TOTAL SIZE + .J * .CLUSTER_FACTORC.RVN-1) 
.TOTAL_SIZE + (.J +1) * CLUSTER FACTORC .RVN=1), 
“LBN #7.J * .CLUSTER_FACTORE.RVN-T) 
-LBN + (.J #1) ® .CCUSTER_FACTORC.RVN-1) = 1, 
«RVN); 
END; 
END 
ELS 


E 
INCR J FROM .CLUSTER_NUMBER TO .CLUSTER_NUMBER + .CLUSTER_COUNT - 1 DO 
IF .J GTRU .SMAP_SIZEC.RVN-1]*512*8-1 
THEN 
BEGIN 
HEADER_ERROR( 
VERIFYS MAPAREA, 
-MAIN-HEADER) ; 
EXITLOOP; 
END; 
IF .SCAN_TYPE GEQ 0 
BITVECTORC.NSMAPL.RVN-1), .J] = FALSE; 


IF .SCAN_TYPE 
IF TESTBITCC(BITVECTORC.VSMAPL.RVN-1), .J]) 
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VERIFY’S VERIFY.832; 


Sm 


THEN 

EGIN 

ITVECTORC..MULTSMAPC.RVN-1], .J] = TRUE; 
Wnt ALLOC_FOUND = TRUE; 


4 
END; 
Finally, add the count into the total file size. 
1 


TOTAL_SIZE = .TOTAL_SIZE + .COUNT; 


! Make sure that the last map pointer ended at the location identified by 
MAP_INUSE 


if -MAP_POINTER NEQA .END_MAP_USED 


HEN 
HEADER ERROR ( 
VERIFY$_MAPAREA, 


Mat 
-MAIN-HEADER) ; 


Di Pin, Py By iy ay Nin i Pn ity, Di Ni i i Ny i i i i ie ee | 


WAAL AL A AI AIO ROPONONNPNUNN  tOO 


Make sure that the unused portion of the map area is zero. 
IF .END_MAP_ALLOC GTRA .END_MAP_USED 
on CHSF IND_NOT_CH(.END_MAP_ALLOC-.END_MAP_USED, .END_MAP_USED, 0) NEQ 0 
NHEADER ERROR ( 
VERIEVS MAPAREA, 


FILE_IB, 
~MAINZHEADER) ; 


PWN (CO OODNAUN EWN OOD NOU EWN (CO ODNOU SW OO0O 


SSN NSS 
, tied hab ah has 


WAAws 


END; 


.EXTRN GET_MAP_POINTER 
OFFC 00000 MAP_PROCESS: 
ORD 


.W Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 3537 
5B 00000000' a 9002 MOV chu USTER. FACTOR, R11 : 
3 8 © 09 SUBL2 #8, SP : 
04 AC 900¢ MOV HEADER, RO > 3595 
51 Qi F 1 MOVAB 1(RO), R1 : 
02 FF70 cB p 14 CMPL § STRUCTURE_LEVEL, #2 : 3592 
19 12 00019 BNEG 1$ ; 
1 61 9A 0001B MOVZBL (R1), R1 > 3595 
8 6041 3€ 0001 MOVAW (RO)(R1], MAP_POINTER 
1 02. A A MOVZBL @ (RO) ai : 3596 
4 6041 3€ MOVA RO) ERI] END_MAP_ALLOC ; 
9 3a AOsOD”A A MOVZBL 58(RO), RO : 3597 
684 i 5 MOVAW (MAP_POINTER)CROJ, END_MAP_USED : 
1 BRB 2$ : 3592 


3 | 
VERIFY Main module 18-5 -1984 02:15: AX-11 Bliss-32 V4.0-74 Page 123) 
v04=000 br eset 1e8epn198e $3:27:19 — EekRiFyoSReSveRiFY e3oe4 - 6 
1 61 9A 4 1%: MOVZBL (R1) Rl : 3601 
8 6041 3E 7 MOVAW RO) ERI , MAP_POINTER : 
4 Ore CO 9F : OVAB 510(RO), END MAP ALLOC : 360 
g AB 9A 0004 MOVZBL &(MAP_POINTER) RO : 360 
A AB4 44 OVAW OCMAP POINTERSCROJ, END_MAP_USED : 
8 A ch 49 ADDL2 #10, MAP_POINTER ; 604 
55 08 ag ie: af 2$: SUBL3 #1, RYN. R + 3638 
5 4 (C4 ° MULL2 #4 : 
9 8 bi 308) 3$: CPL MAP POINTER, END_MAP_USED ; 3610 
013A 31 9 BRW 9$ : 
02 FF70 D1 2 4$ CMPL TRUCTURE_LEVEL, #2 + 3621 
SB Br 3 
000000006 FF 1¢ 0063 SB GET_MAP_POINTER ; 3623 
57 02 As x 00068 5$ MOVZWL 2(MAP_POINTER), LBN + 3626 
57 08 10 88 F 4 of INSV (MAP_POINTER)+, #16, #8, LBN : 3627 
56 FD AB 9A 00074 MOVZBL -3(MAP_POINTERS, COUNT : 3628 
06 AE De boorn 6S iNet Stun + 3636 
6E 56 DO 0007D MOVL. COUNT, DIVIDEND + 3637 
50 6B 55 cl 00080 ADDL3 5, CLUSTER_FACTOR, RO : 3638 
53 oA 6E 60 8 90084 EDIV (RO), DIVIDEND, CLUSTER_COUNT, REMAINDER : 
33 D3 00089 st REMAINDER ; 3639 
it BS Ra Riek ue agen is 
000000006 8F DD 00093 PUSHL #VERTFYS$_MAPAREA > 3641 
0000v CF 3 FB 4 CALLS #3, HEADER_ERROR : 
6E 7 00 0009E 7$ MOVL. LBN, DIVIDEND > 3645 
50 68 5 ci 000A1 ADDL3 RS, CLUSTER FACTOR, RO : 3646 
53 52 6E 60 7B BO0A3 EDIV (RO), DIVIDEND, CLUSTER_NUMBER, REMAINDER ; 
13 838 ada, glam oe 
96 AE BB oooaT PUSHE FILECIDS : 3657 
000000006 BF DD 000B4 PUSHL aVERTEYS MAPAREA : 3649 
0000v CF 3 FB OOOBA CALLS #3, HEADER_ERROR 3 
69 0000 4.0" i te tte 8$: BLBC DUAL ALLOC-PASS. 11$ 661 
11 000¢ BRB 10$ : 
og REP Bg La suanree arog. mt & 
50 60 ¢ rs O04 ASHL #12,7(RO). RO : 
D D8 DECL RO : 
- 9 $A od0pD Serky 3g °° 
50 55 FC AB C1 OO0DF ADDL3 MULTSMAP, RS, RO : 3671 
40 00 80 51 £1 OO0E4 BBC Ri, adr), 10$ ; 
C 14 AC E9 O00E9 BLBC SCAN_TYPE, 10$ : 367 
8 A BD 6 ED PUSHL VN : 368 
50 1 AS F F MOV 1(R3), RO : 3682 
51 68 3 cl re ADDL RS, CLUSTER FACTOR, R1 
FF AQ47 SF FB PUSHAB -1(RO)CLBN : 
51 53 61 g5 FF it3 (R1), J, R : 3681 
6147 9F 00103 PUSHAB (R1)(LBNI ; 


} 


Sse lS ——— 


3; Routine Size: 463 bytes, Routine Base: CODE + 30DE 


a 3 
VERIFY Main module 16-Sep-1984 :15: AX-11 Bliss-32 V4.0-74 Page 124 
v04=000 1 =3007 138% 9g: 33:49 VERIFY. SRC VERINY 3e04 . 18} 
'FF4O OF 001 PUSHAB @TOTAL_SIZECRO] 3 36 ; 
50 51 $b 0880 0 EF g1 1Bp ADDL3. TOTAL_SIZE, R1, RO : 3 9 ; 
AO 9F 001 PUSHAB 1(RO) : : 
AC DD 0011 PUSHL MAIN_HEADER + 367 ; 
AC DD 00118 PUSHL FILE~ID : 367 ; 
000000006 8F DD OO11E PUSHL aVERTEYS MULTALLOC : 3675 : 
0000v CF 8 F 124 CALLS #8, HEADER_ERROR : : 
9E 3 A f 9 10S: AOBLSS CLUSTER COONT, J, 9 + 3663 ; 
53 52 A Ci OO10F 118: ADDL3 CLUSTER_COUNT, CLUSTER_NUMBER, R3 : 3 87 : 
é tf i Bes” 175 3 00 : 
50 55 FO = AB ci 137 128: ADDL3 SMAP_SIZE, R5, RO > 3689 : 
50 60 8 ot ASHL #12,~(RO). RO : ; 
D7 0014 DECL RO : ; 
50 D1 0014 CMPL =: J,_RO : ; 
13 1B 0014 BLEQU ids : ; 
OC AC DD 00147 PUSHL MAIN HEADER + 3695 : 
10 AC DD O014A PUSHL FILE7I + 3694 ; 
000000006 8F DD O40 PUSHL aVERTEYS MAPAREA + 3692 F 
O000v CF 93 Fe HF CALLS #3, HEADER_ERROR : ; 
11 00158 13$: BRB 18$ : 3691 ; 
14 AC D5 O15, 14$: TSTL  SCAN_TYPE : 3700 ; 
0A 19 0015p BLSS. 15$ : ; 
50 55 8 AB C1 0015F ADDL3 NSMAP, RS, RO + 3702 : 
00 00 «80 52 ES 00164 BBCC «© J, aO(RO). 15$ : : 
1B 14 AC €E9 00169 158: LBC. —- SCAN TYPE. 17$ : 3705 F 
50 55 FE AB C1 0016D ADDL3 VSMAP, RS. RO : 3707 ; 
11 00 80 52 £4 0172 BSC. J, a0(RO). 178 : ; 
50 55 FC AB C1 9017 ADDL3 MULTSMAP, RS, RO : 3710 : 
00 00 80 52 €2 0017¢ BSS J, a0(ROS, 14$ : : 
00000000" EF 1 00 00181 16$ OVL #1, DUAL_ALLOC_FOUND : 3711 ; 
AB 52 3 F3 0188 17$ AOBLSS R3. J, : 3687 : 
00000000" EF 56 0018¢ 18$: ADDL COUNT, TOTAL_SIZE : 3718 ; 
FEBE 31 001 BRW $ : 3610 ; 
11 13 00196 19$:  BEQL 208 : 3726 ; 
OC AC DD 00198 PUSHL MAIN_HEADER : 3731 ; 
10 AC DD 00198 PUSHL FILE7ID : 3730 ; 
000000006 8F DD 0019E PUSHL aVERTEYS MAPAREA : 3728 : 
0000v CF 3 FB OO1AG CALLS #3, HEADER ERROR ; : 
59 4 D1 O001A9 208:  — CMPL ND_MAP_ALCOC, END_MAP_USED : 3736 ; 
20 1 O1AC BLEQ 2$ : : 
54 9 OAE SUBL2 END_MAP_USED, R4 : 3738 : 
69 54 : 1B SKPC 40 R4,~ (END. MAP_USED) : : 
183 BNEQ 21§ : ; 
D4 0018 CLRL sR : ; 
1 d3 0189 21$:  TSTL Ri : : 
ee 1BB BEQL 228 ; : 
C AC 0D 0018D PUSHL MAIN_HEADER : 374 : 
0 aC dD O0IC PUSHL FILE7ID > 374 ; 
000000006 et DD OOIC PUSHL eyentrys MAPAREA ; 374 3 
0000v CF 3 FB OOIC CALLS #3, HEADER_ERROR $ 3 
04 OOICE 228: ET > 3744 : 


N 3 
VO4=000 ee Pema esepn19be 89:27:45 EWeaLFyesReSveRIrY 


3 q ¢ tt} } ROUTINE CREATE_WINDOW(P_HEADER,P_RVN)= 

: 37 8 rs 1 !4¢ 

; 37 rs 1 i 

; 3758 749 1 FUNCTIONAL DESCRIPTION: 

; 3759 750 1! This routine generates a window block (or blocks) from a file 
; 790 4 1 : header, reading the extension headers as necessary. 

; 376 7 i 1 | INPUT PARAMETERS: 

; 376 754 1 P_HEADER - Pointer to file header to be processed. 

3 ree f 5 i - Relative volume number of file header. 

; 376 13 1 / tale INPUTS: 

; 376 758 1! ONE 

: 3768 759 1 

; 3769 760 1 i OUTPUT PARAMETERS: 

; 3770 761 1! NONE 

: 3771 fo6 1 3 

: 377 763 1! IMPLICIT OUTPUTS: 

3; 377 764 1! NONE 

; 3774 765 1! 

3; 3775 766 1 | ROUTINE VALUE: 

3 776 rer } Pointer to window block. If the header maps no space, 0. 

3 3778 769 1! SIDE erres*ss 

: 3779 770 1: ONE 

; 3780 771 «1 

3; 3781 772 1 I- 

; 378 773° «1 

; 378 774 BEGIN 

: 3784 775 LINKAGE 

; 3785 776 L_MAP_POINTER= JSB: 

3; 3786 3777 GLOBAL (COUNT=6, LBN=7, MAP_POINTER=8); 

: gree 3358 EXTERNAL ROUTINE 

3 A 44. eae GET_MAP_POINTER: L_MAP_POINTER; ! Get value of ODS-2 file map pointer 
; 3790 3781 HEADER: REF BBLOCK, fetacer to current file header 
; 3791 ree RVN, + lg f current file header 
; 379 EXT_FILE_ID: BBLOCKCF IDSC LENGTH ! Extension file ID 

; 379 784 LOCAL_HEADER: ®BLOCK(512),~ Local area for file header 
3; 3794 785 WINDOO_LIST: VECTOR(C2), ' List head of window lis 

: 3795 78 WINDOW: BBLOCK wou S$ _HEADER + WDOW_K_MAXENTRY * wou. S_ENTRY), 
; 3796 78 REF BBLOCK? ! Pointer td current window éntry 
; 3797 788 

3; 3798 789 

3; 3799 ' Initialize. 

; 3860 791 ! 

: 3801 79 HEADER = .P HEADER; 

; 380 79 RVN = .P RV 

; 380 794 2 WINDOW ou" TStC62, : WINDOW LISTC1) = 0; 

3; 3804 795 WINDOWLWDW_L INK 

3; 3805 79 ylNbow WOW" SIZE 

: 806 79 = WINDOW"+ WOW_ s a oe - WDW_S_ENTRY; 

: 308 36 

: st s} : Loop over this header and all of its extension headers. 
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MAP-POINTER = [MAP_POINTE 
END? 


cet Wy 


Loop until entire map processed. 
UNTIL .MAP_POINTER GEQA .END_MAP DO 
BEGIN 


Get count and LBN. 
iF ~STRUCTURE_LEVEL EQL 2 
_OET_MAP_POINTER() 


o1) 8 WHILE TRUE DO 
18 Be GLOBAL REGISTER 
14 5 COUNT= ‘ ' Retrieval pointer count 
15 508 LBN= ° ' Retrieval pointer LBN 
518 eas 8: REF BBLOCK; ! Pointer to scan map area 
3\5 END_MAP; ! Pointer to end of used map area 
820 
; 1 ! Get pointers to the map area and the end of the used portion 
: g of the map area. 
824 IF .STRUCTURE_LEVEL EQL 2 
825 THEN 
826 4 BEGIN 
827 & MAP_POINTER = .HEADER + .HEADERCFH2$B _MPOFFSETIJ*2; 
a s ® = + ® * ; 
Bes ? END_MAP MAP_POINTER HEADERCFH2$B_MAP_INUSEJ*2 
830 3 ELSE 
831 4 BEGIN 
See 4 MAP_POINTER = .HEADER + .HEADERCFHISB _MPOFFSET)*2; 
83 4 END_MAP = .MAP_POINTER + FMISC_POINTERS + .MAP_POINTERCFM1$B8_INUSEJ*2; 
; & R + FRISC_POINTERS; 
8 
8 
8 
4 
& 
4 
4 
4 
4 
4 
4 
5 


OOONA NEW $0 DONA EWN (OOD ONOAUE WI" OOM 


SPAN. AAA A AWN PNPNIPINPIPONINNY 2 OOO ws OO 


ELS 
EGIN 
LBN = .MAP_POINTERCFM1$W_LOWLBN); 
LBN<16,8> = .MAP_POINTERTFM1$B8_HIGHLBN); 
COUNT = .MAP_POIRTERCFM1$SB_COURT) + 1; 
Re POINTER = .MAP_POINTER + 4; 


NOUS WN OC OONOAUESWN—OO0O@ 


' Collapse with previous map pointer if contiguous with it -- 
otherwise, generate new map pointer. 


if 


VIPMMVIMIMIIV 


BEGIN 
IF .WINDOWCWDW_SIZE] NEQ 0 
as .PCWDW_COUNT] + .PCWDW_LBN] EQL .LBN 
FALSE 
D 


Ww —O0°@ 


Pree Pee ee ee Ee ee ed ek dk ed ei ed ti i i ed Ll Le Le Le 
WWnww 
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; 3868 59 4 THEN 3 
; 3869 60 4 PCWDW COUNT] = .PCWDW_COUNT] + .COUNT ; 
aah) e> 8 
3 ere 6 IF .WINDOWCWDW_SIZE] GEQU WOW_K_MAXENTRY ; 
3; 387 64 THEN $ 
: 3874 65 6 BEGIN ; 
; 3875 66 6 LOCAL 3 
an oS SABE | BRS. Sieaey potee ; 
+ t namic window pointer ; 
: 3878 869 6 : , : 
: 3879 1 0 6 3 
; 3880 71 6 ! Window block has overflowed. Move local window block to : 
3 tt sf ? dynamic space and initialize for new block. : 
; B88 874 6 STATUS = LIBSGET_V 3 
: Bae 16 ° veut PLT (ubw.s § READER + WOW_K_MAXENTRY * WDW_S_ENTRY), : 
; 3886 B99 6 IF NOT eTAtUS THEN SIGNAL(VERIFYS_ALLOCMEM, 0, .STATUS); 3 
; eed 878 6 CHSMOV 3 
; 3888 3879 6 te HEADER + WDOW_K_MAXENTRY * WDW_S_ENTRY, : 
3; 3889 880 6 INBOR. : 
; 3890 881 6 WYN : 
> 3891 882 6 IF GINDOW “ istet NEQ ; 
3 oe 883 6 THEN BBL ocr suINDOW. LIS WOW_LINK] = = DYNUDY: ; 
3 389 884 6 IF .WINDOW t1 $1 6) Ea. 0 SrA ‘dinpownt ISTCO] = .DYNWDW; ; 
3; 3894 885 6 WINDOW_LISTC1) = .DYNWDW; 3 
; 3895 886 6 WINDOWDWDW_LINK] = = $: : 
: 3896 887 6 WINDOW(RDW_ =SIZE ; 
: 3897 888 P = WINDOW + WDW_ S _HEADER = WDW_S_ENTRY; : 
; 3898 889 END: : 
; 3899 890 ; 
; 3900 891 2 3 
: vai 4 ; Generate new pointer. ; 
; 390 894 2 UINDONC WoW ste ag MDOUC OU SIZES * 13 3 
; 3904 895 + WDOW_S_ENTRY; 3 
; 3905 896 PCuDU. COUNT) = etouNt: ; 
; 3906 89 PLWDW_ “LBN) = .LBN; : 
3; 3907 898 4 END: 3 
; 3908 899 END; 3 
; 3909 900 3 
; 3910 al 3 
: 3911 § ! If no extension header exists, finish up. 3 
3 a 90 ! 3 
3; 391 904 IF c 
3; 39146 905 4 BEGIN : 
: 3915 443 4 IF ,STRUCTURE_LEVEL EQL 2 ; 
: Big 907 4 : 
; 391 908 4 -HEADERCFH2$W_EX_FIDNUM] EQL 0 3 
3 ay 909 4 ELS 3 
; 391 910 BEGIN ; 
; 3920 911 MAP g ys = .HEADER + 1) Yi fee MPOFFSETJ*2; : 
3 3921 318 .MAP_POINTERCFM1$W_EX_FILN | 3 
; 39 ¢ 91 | : 
; 39 914 & END 3 
; 35924 915 3 THEN 3 
| 
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EXITLOOP; 
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Get clean file number and RVN. 
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.DYNWDW); 
IF .WINDOW LISTC1) NEQ 0 
THEN BBLOCK 

IF .WINDOW_LISTCO 


~™N 


Q 
INDOW_LISTC1), WOW_L wt) 5) -DYNWDW; 


Ll 
EQL O THEN WINDOW"LISTCO] = .DYNWbW; 


oo 


oO 

“ 

QS 
No” 


; 39 91 3 
: 2 4 : 
3 2 3 : 
; 39 921 IF .STRUCTURE_LEVEL EQL 2 ‘ 
3; 39 +] ¢ THEN 3 
; 39 9 4 BEGIN : 
; 39 924 4 EXT_FILE_IDCFIDSW_NUM] = .HEADERCFH2$W_EX_FIDNUM]; ‘ 
; 39 925 4 EXT_FILE_IDCFIDSW_SEQ) = .HEADERCFH2SW_EX_FIDSEQ); ; 
; 39 9 $ 4 EXT-FILE-IDCFIDSW-RVNJ = .HEADERCFHOSW_EX_FIDRVNI; : 
3; 39 9 4 END : 
; 39 928 3 ELSE : 
; 39 929 4 BEGIN : 
: 3939 930 4 EXT_FILE_IDCFIDSW_NUM] = .MAP_POINTER pm gu EXE I LMUn: : 
; 3940 931 4 EXT-FILE-IDCFIDSW-SEQ] = .MAP-POINTERLFM1$W-EX—FILSEQ]: : 
; reg i ¢ 4 EXT FILE 1D FIDSW_RVN) = 1; : 
: 308 338 IF .EXT_FILE_IDCFIDS$B_RVN] EQL 0 THEN EXT_FILE_IDCFIDSB_RVN] = .RVN; : 
: 3945 9 ; 
3 tg | 337 Set up header and RVN for next trip through loop. : 
3: 3948 939 HEADER = LOCAL_HEADER; : 
: 3949 940 RVN = .EXT_FILE_IDCFIO$8_RVNI; : 
; 3950 941 : 
; 3951 3g . : 
: 336 94 ' Read extension file header. If this fails, ‘ 
; 395 944 ! exit the Loop. : 
; 3954 945 ! : 
; 3955 946 IF NOT READ_HEADER(EXT_FILE_ID, .HEADER) ; 
g 228 947 : 
; 395 948 EXITLOOP; . 
; 3958 949 END; : 
; 3959 950 ; 
: 3960 951 2 : 
; sd 326 ; Get dynamic window block for current window. : 
3 308 954 IF .WINDOWCWDW_SIZE] NEQ 0 3 
: 3964 955 THEN 3 
3; 3965 326 BEGIN ; 
3 v6 95 LOCAL : 
; 396 13 STATUS, ' Status return ; 
3 Boe 95 DYNWDW; ' Dynamic window pointer : 
3 38 960 : 
3; 3970 961 3 
3: 3971 306 STATUS = LIBSGET_VM( : 
3 44 96 ZREF (WDW_S_HEADER + .WINDOWCWDW_SIZE] * WDW_S_ENTRY), : 
3; 397 964 DYNWDW) ; : 
3: 3974 965 IF NOT . STATUS THEN SIGNAL(VERIFYS_ALLOCMEM, 0, .STATUS); : 
; 3975 266 CHSMOVE ( : 
; 976 96 WOW _S HEADER + .WINDOW(WDW_SIZE] * WOW_S_ENTRY, ; 
3; 397 968 WwINBOO, : 
: 39 : 


verity 

v04-000 14- 

; 39 97 END; 

; 39 £ th 

; 3984 975 

: ; 5 44 Return a pointer to the first window block 
: 398 378 ,WINDOW_LISTCO] 

; 3988 97 END; 


00000088 83580 


OFFC 00000 CR 


SE FOS8 =CE 4 $008 
5A 04 AC 00 0000 
04 AE 08 AC b0 000 
a 
59 10 AE 9E 00017 
50 01 AA YE 0001B 1$: 
02 00000000" Fe p} 4 94 
50 60 9A 00028 
58 6A40 3E 00028 
58 5B 00 0002F 
50 3A AA YA 00032 
Sa hee 
50 60 3 4 C 2$: 
OME a 
; As seit 
33 OA A840 3 Q004A 
AC Bees 
6E iF 9035 3$: 
00 1 % 
02 00000000" EF 01 3 A 4$: 
12 61 
000000006 Fr 1 8 rt: 
57 02 ‘ Hs eg 5$: 
57 08 10 88 F oot 
56 FD AS QA 8 & 
56 D 78 
14 AE D 7A 6$: 
OF 1 70 
50 9 04 Ag c’ 44 
03 jf 8 7 
69 6 ¢ 9 
C4 11 0008C 7 
10 14 AE 01 QOO8E 8 


Pn 
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Saye R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
=680(SP), §P 
P_HEADER, HEADER 

VN, RVN 


WINDOW. Cyst 
P 
(HEADER), RO 
STRUCTURE “LEVEL, #2 
FABER) CRO}. R11 
P POINTER 
B(HEADER) 

SINTER CROJ, END_MAP 
1 
RO 
RO], END_MAP 


Sot ZEaeRe==5 =~ _ 
sss 


> 


( 
0 
p 
$ 
RUCTURE_LEVEL, #2 
T_MAP_POINTER 

(MAP POINTER), LBN 


MAP_POINTER)+, #16, #8, LBN 
-3 3 (MAP -POINTERS, COUNT 
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AMAAWA 


com 
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P), (P), RO 
LBN 
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UNT, (P) 
WINDOW+4, #16 
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v04=000 18-808 =| 3be 96:39:99 VERIFY REVERIE Y o3004 9° 10) 
4E oF BLSSU 12 : 
08 AE Hi 3 PUSHAB DYNWDW + 3874 
FF61 CF 9F 00097 PUSHAB P,ABM : 3875 
000000006 00 EB CALLS #2 L 1BSGET_VM : 
11 E A BLBS = STATUS, : 3877 
DD OO0A PUSHL STATUS : 
000000006 F bb a9 steht aVERIFYS ALLOCMEM : 
00000006 00 os F Oar CALL * LIB$SIGNAL : 
08 BE 1 Ar 088 BF 2 B6 9$: MOVCS #136, WINDOW, @DYNWDW + 3881 
5 09¢ cE p 8 ROVL window Listed, RO : 3882 
60 08 AE D § ¢ MOVL  DYNWDW, (RO) : 3883 
009 cE 05 000C9 10$:  TSTL  WINDOW’LIST : 3884 
6 12 000CD BNEQ «1:1 : 
0098 CE 08 AE D OOcE MOVL § DYNWDW, WINDOW_LIST : 
009C cE AE B O05 11$: MOVL DYNWDW, WINDOW _LIST+4 ; 3885 
10 AE 7¢C 00008 CLRQ WINDOW : 3886 
59 10 AE 9E 000D MOVAB WINDOW, P : 3888 
14 AE D6 OOOES 12$: INCL  WINDOWS4 : 3894 
59 C0 OE ADDL2 #8, P : 3895 
69 6 7D 000E8 MOva COUNT, (P) : 3896 
9F 11 O00EB BRB $ : 3831 
50 D4 OOOED 13$:  CLRL RO : 3906 
02 00000000" EF D1 OOODEF CMPL § STRUCTURE_LEVEL, #2 : 
07 12 OO0F6 BNEG 14 : 
50 D6 OOOF INCL RO F 
OE AA BS OOOFA TSTW  14(HEADER) : 3908 
06 11 OOOFD BRB 15$ : 
58 5B DO OOOFF 14$:  MOVL R11, MAP_POINTER : 3311 
02 AB B 0102 TSTW  2(MAP_POTNTER) : 3912 
C 1300105 15$:  BEQL 19% : 
0c 6 €9 00107 BLBC RO, 16$ : 3921 
F8 AD og AA DO OO10A MOVL 14(HEADER), EXT_FILE_ID : 3924 
FC AD 12 AA BO 0010F MOVW  18(HEADER). EXTTFILE~1D+4 : 3926 
09 11 00114 BRB 17$ : 3921 
FB AD 02 AB DO 00116 168: MOVL 2(MAP_POINTER), EXT_FILE_ID : 3930 
FC OAD 01 8 O18 MOVW #1, ERT_FILE 1644 ; 932 
FC OAD 11F 17$: TSTB ss EX_FILE_ID+% ; 39 
05 12 00122 BNEQ 18$ : 
FC AD 04 AE 90 00124 MOVB VN, EXT_FILE_ID+4 ; 
SA OOAO CE 9E oi 9 18$: | MOVAB LOCAL_HEADER, HEADER : 3939 
04 AE FC AD 9A 001 MOVZBL EXT FILE_ID+4, RVN : 3940 
SA po o1 PUSHL ER : 3946 
F8 AD 9F 001 PUSHAB EXT_FILE_ID : 
0000v CF u FB 01 CALLS 2 READ_HEADER : 
03 § 1 LBC 3—saRO, «198 : 
FEDS 31 0014 BRW : 
52 14 ; b9 143 19$:  MOVL WINDOWs4, R2 : 3954 
4 14 BEQL 228 : 
Oc AE 9F 00149 PUSHAB DYNWDW : 3962 
52 C4 0014C ULL a8, Re : 396 
C0 14F ADDL = #8. R : 
08 AE p 1 MOVL R2. B(SP) : 
000000006 00 a 03 Pe bot a tice BiSP) T_VM 
nN $6 £8 00106 BLBS” STATUS. S08 ; 3965 | 
| 
| 
a] 
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Routine Base: CODE + 32B4 


407 bytes, 


; Routine Size: 


0004 00000 DELETE_WINDOw: 


-WORD Save R2 


H 4 

RIFY Main module 16-Sep 4 AX-11 Bliss-32 V4.0-74 
voe-000 ergee=}38e 93:53:89 | RT ebhes veer he B35e7 
3 re 4 9 } ROUTINE DELETE_WINDOW(WINDOW): NOVALUE= 
: 936 986 1 144 
; 399 9 1! 
: 3994 984 1 ! FUNCTIONAL DESCRIPTION: 
; 3995 z 5 : This routine deletes a window block (or blocks). 
; 338 9 § 1 ! INPUT PARAMETERS: 
3 be 9 .s WINDOW - Pointer to window block. 
3 989 1! 
; 4000 990 1! IMPLICIT INPUTS: 
: re 7) (1) Ct NONE 
: 4 § 992 1! 
; 400 99 1 ! OUTPUT PARAMETERS: 
: 40046 994 1! NONE 
: rh 33 i IMPLICIT OUTPUTS 
3 2009 399 1! NONE 
; 4008 998 1! 
3; 4009 999 1 ! ROUTINE VALUE: 
; 4010 4000 1! NONE 
: 4011 4001 1! 
3 red | 400 1 ! SIDE EFFECTS: 
; 401 4005 1! Window blocks released. 
3 4014 40046 1! 
3; 4015 4005 1 !-<- 
; 4016 ret | 1 
3; 4017 400 BEGIN 
; 4018 4008 MAP 
; 4019 4009 WINDOW: REF BBLOCK; ! Pointer to window block 
: 4020 4010 LOCAL 
; 4021 4011 : REF BBLOCK; ! Pointer to window block 
; 40 ¢ reat 
; tos 401 
; 4024 4014 INDOW; 
> 4025 4015 2 WHILE .W NEQ 0 DO 
: 4026 ante EGIN 
3 rts 34 rt LOCAL 
3; 4028 4018 XT: REF BBLOCK, ' Pointer to next window block 
: 4029 4019 STATUS; ! Status return 
3; 40 4020 
; 4031 4021 
: ret 40 § NEXT = .WCWDW_L og potat to next block 
3 4 $8 STATUS = tTBSFREE ree current block 
; re ¢ : : yet Saou, S RRERDER + .WCWDW_ SIZE] * ah SENTRY), 
3; 40 40 § IF NOT .STATUS THEN SIGNAL(VERIFYS_ FREEMEM, 0, .STATUS); 
: 40 40 W = NEXT; ' Advance to next block 
; 40 4028 END; 
; 40 4029 END; 


: 3980 


hain nodule | ybesen-198e 93:45:29 yauclt 


nn 


SE 08 SUBL2 #8, SP 
04 ar 04 AC g MOVL wiNDow, W 
5 4 Ag A R 
3 BEQL 
52 0 60 MOVL (RO), NEXT 
4 A é MOVL 4(RO) 
04 AE 28 0 A ASHL re: RO, ne(SP) 
04 AE f g 
4( ais 
6 CALLS #2, LIBSFREE_VM 


000000006 00 
11 ST TATUS, 2$ 
STATUS 
=(SP) 
PUSHL ' ERIFYS$ FREEMEM 
CALLS LIBSSIGN 
2$: MOVL Nes, W 
. 1 


S 4026 


E 
000000006 Bf 
000000006 00 
04 «AE 


o 

— 

> 

Wrow oornm 
o-9 MOV OMTOONOOU-T77o"0™ 
OS £9 OD “OWO "OWOOrn 


5 
C 


CDODDDDDOCDODDODODOOOO0O 
SOOCSCSODOOOSOOSOOOOOSOSOO 
SOODSOSDSODSOOOOSOSOOOOSOOO 

333 OOOO 
—- 
wn 
VDOT v0 =z 
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ROUTINE MAP_VIRTUAL (WINDOW, VBN,LBN)= 


'e4 
' 


i FUNCTIONAL DESCRIPTION: 
This routine maps a virtual block number to a logical block number 
using the specified window. 


INPUT PARAMETERS: 
WINDOW = Pointer to a window block. 
VBN - Virtual block number. 
LBN - Pointer to where logical block number is returned. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
SSS$_NORMAL if translation is successful or SS$_ENDOFFILE if the 
specified virtual block is not within the file. 


SIDE EFFECTS: 
NONE 


BEGIN 
LOCAL 
: REF BBLOCK, ' Pointer to window block 
P: REF BBLOCK, !' Pointer to window block entry 
N; ! VBN mapped so far 


The virtual block number must not be 0. 
iF .VBN EQL 0 
THEN 

RETURN SS$_ENDOFFILE; 


Loop over the window blocks. 
WwW = WINDOW; 
N=1; 
WHILE .W NEQ 0 DO 
BEGIN 
P = .W + WDW_S_HEADER; 


Loop over the entries within the window block. 
DECR I FROM .WC(WOW_SIZE] TO 1 DO 


Sm 


K 4 
V Main module 16-Sep-1 AX-11 Bliss-32 V4.0-74 
v04-000 14- Sep-1 382 ¢: 33: #9 VERIFY. SRC IV Bhi y o304 
; 4098 4087 4 BEGIN 
; 4099 28 3 4 
; rts Z 3 2 If this entry maps the specified VBN, compute the LBN and return. 
; 2188 4091 4 IF .VBN GEQU .N AND .VBN LSSU .N + .PCWDW_COUNT] 
; ei8z $83 4 THEN 
: 4105 4094 LBN = .PCWDW LBNJ + .VBN = .N; 
; £138 4095 RETURN §S NORMAL ; 
; 410 4096 4 END; 
2109 2098 
; 4110 4099 4 ! Advance to next entry. 
3 4111 4100 4 ! 
3 tig 4101 4 N= .N + .PCWDW COUNTJ; 
3 411 £106 4 P= .P + WDW_S S_ENTRY; 
3 4114 410 END; 
Me RB 
3; 4117 4106 ' Advance to next window block. 
; 4118 4107 i 
3 4119 4108 W = .WOWDW_LINKI; 
; 4120 4109 END; 
: 4121 4110 
3: 41 ; 4111 
; 41 aii6 ! There were not enough oe pointers to advance to the specified virtual 
3 4135 oit7 block number. Therefore, return SS$_ENDOFFILE. 
: 4126 4115 $s$ _ENDOFF ILE 
3; 4127 4116 1 END; 
003C 00000 MAP_VIRTUAL: 
-WORD Save R2,R3,R4,R5 
55 08 AC 0 B00 MOVL BN, R5 
40 13 00006 BEQL 
50 04 AC 00 00008 MOVL WINDOW, W 
52 1 pd 0000C MOVL #i, N 
0 05 QOOOF 1$: TSTL wW 
5 13 0001 BEQL 5$ 
51 08 ag oF 1 petty 8(RO), P 
54 04 Ad f 1 ADDL3 #1, 4tw), 
g 1 1c BRB 4$ 
52 D1 1E 2$: CMPL R5, N 
17 1F 00021 BLSS 3$ 
53 3¢ 1 ¢1 00 ; ADDL (P), N, R3 
5 ot CMPL’ RS, R3 
f A BGEQ 3$ 
53 3 06 alc f ADDL 4(P), R5, R3 
oc Bt 3¢ C SUBL3 oN, R$, aLBN 
0 0 p MOVL ai, Rb 
8} ce $: apeLg (P)+, N 
ADDLe #4, P 


Pete Se Se Se Se Se Sete Se Se Ge Sete Ge Sete Se Ge ee & 
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50 0870 Sf 3 ; re 5$: st 13160, RO 


; Routine Size: 78 bytes, Routine Base: CODE + 3493 


Main module 


WN — SO CONOULSWN “CO OONOUSWN—OOW 


DOnNOUSWY—CO 


wr 


Pe ee ee tt ot tt tt RAMA URUAUMUHUMUMUeeet eee 
ec el el cel cere el eel cl el cel el el el cel cel eel cel cel cel el eel cl cel el cl els ell ell lt cel cl el cl cel cl cel elt cecal cll cael cel calls cells cls celle cells ls cll cll cells cls cals calls ails 


~“ 


BB APA I|IIN III a nn i i a 0 


yo oP oy oP ot ot ot ot ot ot ot ot ot ot ot ot ot et et tt kk kt tt ek et eet ot a ee 
a ce ad ee a ced ce ee a cel cl eel cae a ee ee a ce cd ae ce ed ee ca ce a ce a ee ee ce cl cl ca el ce cD ed a ee ee ed 


ihese 
1-8e 


pai9be 18:27:49 LVeRIFY® 
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SR 
ROUTINE ACCESS_INDEX_2(RVN): NOVALUE= 

'+4 


! 

FUNCTIONAL DESCRIPTION: 

his routine accesses an index file on the second channel. If the 
second channel had an index file accessed, it is first deaccessed. 


INPUT PARAMETERS: 
RVN - Relative volume number. If zero, no new index file 
is accessed, but a previous one is deaccessed. 
IMPLICIT INPUTS: 
CHAN2_RVN = RVN on which index file is currently accessed on 
the soeens channel. If zero, none is currently 
accessed. 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT pS a 
CHAN2_RVN - Updated to equal RVN. 


ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
If RVN is nonzero, index file on specified RVN accessed on second 
channel. 
BEGIN 
LOCAL 
STATUS; ' Status variable 


IF_.RVN NEQ .CHAN2_RVN 
THE 
BEGIN 


! If an index file is currently accessed on the second channel, 
deaccess it. 


if .CHAN2_RVN NEQ 0 


Ow ( 
FUNC=10$_DEACCESS, 
CHANS_ CHANNEL 9): 


If a new index file is to be accessed, access it. 
if .RVN NEQ 0 
THEN 


BEGIN | 
CHSFILL(O, FIBSC_LENGTH, FIB); 
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VERIFY, —-—_—Rain modute 1B-Se0-1984 0:15:20 yarn! BLieg-52_v4.0-742 


FC 5 PUSHI. CHANNEL _2 
CLRL rt 
; g gtbeS eratue tee 4183 
9 00000000' MOVZWL lose. StAtUs vam 


PUSHL # 

PUSHL #VERIFY$_OPENINDEX 
CALLS #4, LIBSSIGNAL 
MOVL R6, CHAN2_RVN 


000000006 
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: BLBS $ 4$ 
. 3$: PUSHL grArUs 
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GIN 
IF_.J GTRU .TCQT_COUNT) More entries? 
THEN No more entries 
If ,VCOT LIM. EQ. 0 More blocks? 


No more blocks 


‘ ? ! ROUTINE COUNT_QUOTA(UIC,QBLOCKS, IBLOCKS): NOVALUE= ; 
digg | s** : 
2199 1 | FUNCTIONAL DESCRIPTION: : 
2138 ! This routine maintains the quota data base. : 
4200 1 | INPUT PARAMETERS: : 
4201 1! vIC - UIC to be updated. ; 
4 86 1! QBLOCKS - Blocks to be added to amount used (per quota file) : 
? es : IBLOCKS - Blocks to be added to amount used (per index file) : 
4205 1! IMPLICIT INPUTS: : 
4 BS 1! NONE 3 
4207 1! 3 
4208 1 ! OUTPUT PARAMETERS: . 
4209 1! NONE 3 
4210 1! 3 
4211 1 =! IMPLICIT OUTPUTS: ; 
4212 1! NONE 3 
4 ig 3 3 
4214 1 ! ROUTINE VALUE: b 
4g15 1 | NONE ; 
4 i$ 1 | SIDE EFFECTS: ; 
4218 1! NONE 3 
4219 1! 3 
ri an ae 
4 é BEGIN : 
4 LOCAL 3 
4224 STATUS, ' Status variable 3 
4225 T: REF BBLOCK, ' Pointer to table segment 3 
4 $ E: REF BBLOCK, ' Pointer to table entry : 
: 8 Js ! Index of table entry : 
4229 : 
4230 T = QT 3 
4231 Jjze 3 
4 § CASE 3 
& GI 3 
4234 WHILE 1 3 
4235 4 3 
4 4 : 
0538 
4 3 4 ; 
4 4 : 
4 4 : 
4 4 ; 
4 4 3 
& 4 : 
4 4 b 
4 : 
4 3 
4 : 
4 : 
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! 
i 
i 
' 
40 IF .TCQT_COUNT] EQL QT_MAXCOUNT ! More space? 
4) HEN ' No more space 
*g EXITLOOP 1 ' Add new block 
4 ' More space 
44 EXITLOOP -1 ! Use existing space 
45 ELSE ' More blocks 
rf BEGIN 
4 T = .TCQT_LINK); ' Point to next block 
48 E = 1 + OT_S_HOR; i Point to first entry 
4 Je i; ' Count first entry 


ee 


5 
1$-Se0-1986 08:15:20 YAN-H! aL iegc32 4.02742 


END 
ELSE ! More entries 
i -ECQT_UIC] EQL .UIC ! Correct entry? 
— 0 ! Update existing entry 
BEGIN 
—E = .— + QT_S_ENT; ! Point to next entry 
Le Js @ 1; ! Count next entry 


END 


N 
FROM st TO 1 OF 
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BEGIN 


! Add new entry. E points to space where it can be added, T points 

to table segment. 

TCQT_COUNT] = .TCQT_COUNT] + 1; 

QT_UIC] = UIC; 
T_QUO_USED] = .QBLOCKS; 

AY IDX_USEDJ = .IBLOCKS; 


BEGIN 

Update existing entry. E points to the entry. 
ELQT-IDK-USED] = “ELQTCIDK=USED) * BLOCKS: 

END;= Peas ss : 

BEGIN 

Add new table segment. T points to existing table segment. 


UPLIT (QT HBR + QT_MAXCOUNT*QT_S_ENT), 
IF NOT. STATUS THEN SIGNAL(VERIFYS_ALLOCMEM, 0, .STATUS); 
=. P 
TET LINK = 0; 
TCQT-COUNT) = 4; 
E = TT ¢ QT_S HOR; 
ECQT_UIC) =~.QIC; 
ECQT-QUO_USED) = .QBLOCKS; 
ECQT-1DX_USED = .IBLOCKS; 
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00000C08 3888 P. ABN: 
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ALLOCMEM 
SIGNAL 


RET 
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VERIFY SREIVERIFY 83014 
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14-Sep-1 
ROUTINE READ_HEADER(FILE_ID,BUFFER)= 
'e4 
i 
FUNCTION. DESCRIPTION: 
This routine reads one file header into the specified buffer. 
INPUT PARAMETERS: 
FILE_ID - File ID of header to be read. 
BUFFER - Pointer to buffer. 
cmPLICHY L petss 


OUTPUT PARAMETERS: 
NONE 
inte *' Deir tiies 


ROUTING VALUE: 
True if header successfully read, false otherwise. 


SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
e Header read into buffer. 
ie 


ais 
FILE_ID: REF BBLOCK, ' Pointer to file ID 
eeak BUFFER: REF BBLOCK; ' Pointer to header 
STATUS, ' Status variable 
FILE NUMBER, ' Clean file number 
RVN; ' Clean RVN 


' Get a clean file number and RVN and validity check. If failure, 
' return failure. 


i 

FILE NUMBER | - PILE _IDCFID$SW_NUM); 

FILE-NUMB sa 'hihis IDCF 1D$8_NMX); 

RVN =. PILE <ibtEIO VN 

IF RYN GTRO . -VOLURE £2 OSU THEN RETURN FALSE 

IF .FILE_NUMBER=1 GTRU .MAXFILIDXC.RVN-1) THEN RETURN FALSE; 


: Access index file on appropriate volume. 
ACCESS_INDEX_2(.RVN); 


Read the header. 


STATUS = $Q10W( 
FUNC=10$_READVBLK, 


Sm 


H 5 
VO4-000 separ 1erSep=19b6 8:27:18 | Wenlrvesaciveniry-3e+1 


CHAN=, CHANNEL_2, 
10SB= i0sB 
UFFER, 


psage 
is FICE NUMBER + HEADER RAOEFSETC. .RVN-1)); 


vuvv 


a ee ee ee ee ee ee ee et ee ee el ee at et et ae et et et et et et et et et et et et 


Ww 


ILE 
IF .STATUS TREN STATUS = 
If failure, report it and return failure. 
if NOT .STATUS 
THEN 


BEGIN 
RETURN Papert, READHEADER, .FILE_ID, .BUFFER, .STATUS); 
EN 


Verify the header that was read. 
STATUS = verity. HEADER(.BUFFER, .FILE_ID); 
THEN 
NHEADER_ERROR(VERIFYS_BADHEADER, -FILE_ID, BUFFER); 
Return status of header. 
STATUS 
1 END; 


ted t+ hat ty) te chert PI RP Ae Sy OD 


NM OODNAVES WN (O00 VOU EWN" OOONO 


003C 00000 READ_HEADER: 
WORD 


0 Save R2,R3,R4,R5 
55 00000000" EF 9€ 0000 VAB 10SB, RS 
24 04 AC p 909 OVL FILE 
64 ¢ 00 D MOVZWL (RO) "PILE Nu 
52 08 1 05 a4 F 10 INSV 5(R4S, #8, PILE _NUMBER 
S 04 Aad 9A 00016 MOVZBL 4(R4); RVN 
08 AS 23 D1 1A CMPL -RVN, VOLUME_COUNT 
F 1A If BGTRU 2$ 
51 FF Ag 9E MOVAB -1(R2), R1 
0 64 B54 DE 024 MOVAL @MAXFILIDXCRVNJ, RO 
FC AO 1 0 0 9 CMPL R1, -4(RO) 
9 1A D BGTRU 2$ 
DD F PUSHL RVN 
FE8S CF 1 FB 1 CALLS #1, ACCESS_INDEX_2 
— 7C¢ CLRO 0 = §P) 
7E D4 CLRL = = (SP) 
50 QOAO 0543 DE A MOV QHEADER OFFSETCRVN], RO 
FC BO42 OF 0 PUSHAB @-4(RO)CFILE_NUMSERS 
7E 020 BF 3C 00044 MOVZ2WL #512, =(SP) 
AC bb 49 PUSHL BUFFER 
7E 7C CLRQ. 9 =(SP 
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5 
VERIFY Main module b-se -1984 215: AX-11 Bliss-32 V4.0-74 Page 146 
v64-000 | =3e7 1382 9¢:35:49 YOR RIFY SRE VERINY o350% 945) 
33 DD 0004 PUSHL RS : 
1 DD PUSHL #49 : 
00000000' EF DD PUSHL § CHANNEL_2 : 
E D4 CLRL 3h) : 
000000006 9 F A CALLS #12, SYS$QI0W : 
D 1 MOVL RO, STAT : : 
$ : 4 STATUS + 4368 
¢ MOVZWL OSB, STATUS : 
15 E A L STATUS, : 4373 
DD 0006D 1$: PUSHL STA : 4376 
08 AC DD of PUSHL BUFFER : 
4 00 : PUSHL 4 : 
000000006 BF od 0007 PUSHL #VERIFY$_READHEADER : 
0000v CF 4 FB OOO7A CALLS #4, HEADER_ERROR : 
0 pA O7F 2%: CLRL = RO : 4377 
4 008) RET : 
54 DD 00082 38: PUSHL + 4383 
08 AC DD 00084 PUSHL BUFFE : 
F948 = CF 9 FB 0087 CALLS , VERIFY_HEADER : 
53 dO 0008C MOVL STATUS : 
10 53 «EB O008F BLBS STATUS, 4$ + 4384 
08 AC OD 0092 PUSHL BUFFER + 4386 
54 DD 0009 PUSHL R4 ; 
000000006 8F oD 00097 PUSHL #VERIFY$_BADHEADER ; 
0000v CF 9 FB 4 CALLS #3, HEADER_ERROR ; 
50 D0 O0A2 4$: MOVL STATUS, RO + 4392 
04 OOOA RET 3 
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ROUTINE WRITE_HEADER(FILE_ID,BUFFER)= 
lee 
FUNCTIONAL. DESCRIPTION: 
INPUT PARAMETERS: 
FILE_ID - File ID of header to be written. 
BUFFER - Pointer to buffer. 
IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 

vice >| Lae 

ee VALUE : 


Completion status. 


SIDE EFFECTS: 
Header written from buffer. 


BEGIN 
FILE ID: REF BBLOCK, ' Pointer to file ID 

an BUFFER: REF BBLOCK; ! Pointer to header 
STATUS, ' Status variable 
bas NUMBER, ' Clean file number 

' Clean RVN 

' Get a clean file number and RVN and validity check. If failure, 

do nothing. 

FILE_NUMBER = .FILE_IDCFIDS$W 

FILE~NUMBER<16.8> =~.FI ie years _NMX); 

RVN = .FILE IDCFID$B_RV 

IF .RVN GTRO . : VOLUME -(OUNt THEN RETURN 0; 

IF .FILE_NUMBER- GTRU .MAXFILIDXC..RVN- | THEN RETURN 0; 


' Recompute the checksum, 
CHECKSUM(.BUFFER); 


' Access the index file on the appropriate volume. 
ACCESS_INDEX_2(.RVN); 


ieoseo-t9ge Og:15:29 yan 
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his routine writes one file header from the specified buffer. 
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Main module 


Write the block. 
STATUS = $0104¢ 

FUNC=10 WRITEYBLK. 

CHAN=, CHANNEL _2, 

10S8=10SB 

pis FFER, 

= oO 

P3=.FILE NUMBER + .HEADER OFFSETC.RVN-13); 
IF .STATUS TREN STATUS = .JOSBCO); 
If failure, report it. 
if NOT .STATUS 
THEN 


HEADER_ERROR(VERIFY$_WRITEHEADER, .FILE_ID, .BUFFER, 


Return the completion status. 


» STATUS 
END; 
003¢ 00000 WRITE_HEADER: 
55 00000000" EF 4 0000 MOVAB 
54 04 AC 4 000 OVL 
5 64 C Opt MOVZWL 
08 1 05 A& F0 00010 INSV 
5 04 A& 9A 00016 MOVZBL 
08 AS 53 D1 OQOOTA CMPL 
OF 1A dh BGTRU 
3} FF 4g 9E 000 MOVAB 
0 64 B54 +; 88 4 MOVAL 
FC =AO 51 D 9 CMPL 
23 18 D BLEQU 
Be F 1$: CLRL 
4 1 RET 
08 ac ODD § 23: PUSHL 
00000000G_ EF 1 FB CALLS 
3 DD C PUSHL 
FDD2 CF 1 FB CALLS 
—E 7C¢ 4 CLRO 
7E 04 CLRL 
50 OOAO 054 £ 4 VAL 
FC B04 F 0 PUSHAB 
7E 0208 8F 3C 1 MOVZWL 
0 AC DD 3 PISHL 
43 C £LRQ 
3 DD 8 PUSHL 
0 DD 1) PUSHL 


Kk 5 
ersepm19be 89:27:49 — WWeaLFyesRedveRIrY 83211 


» STATUS); 


R3,R4,R5 
R4 
LE_NUMBER 
16; #8, FILE_NUMBER 


1 
IDXCRVNJ, RO 
RO) 


#1, ACCESS_INDEX_2 
-(§p 
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00000000' ff DD PUSHL CHANNEL oie é 
E D4 5 L ssp) ; 
000000006 F CALLS #2, Syssalow ; 
D F RO el vs 3 
5 L OTA + 4460 
: 24 MOVZWL lose, s eratus ; 
1 E 7 L STA TUS, 4$ + 4465 
DD OOO7A 3S: PUSHL TUS + 4467 
AC 0D 0007C¢ PUSHL BUFFER : 
4 DD 0007F PUSHL  R4 ; 
000000006 8F DD 00081 PUSHL aVERIEYS WRI TEHEADER : 
0000v cf 4 FB 90 7 CALLS ; 
0 3D C 4$: move. ST TATU $ 4473 
04 0008F ET g 


; Routine Size: 144 bytes, Routine Base: CODE + 36CC 


INnWPTonorororofnorororny 
DISARM HODO NOE UN SO ODNANE WS OSR IRAE WU OOO Ie 


SNe ee eee ens sh sh sb tb Ab db bh Ab Ab Ah Ab ah Ab Ah Ab ah ah ah dh ah dl ahah al al al al ee ee ee oP oP oP oP oe oe oe 


Fe ot oF oF oF oF oF oF ot ot ot ot ot tk et he et ee ek ek ek Sl ek ek ek ek ek ek ek ek ek ek et et tt ek et et ee et 


, al ek tat te ek 
OuFwn—o do 


aes IERecHatt RUSTY MERIT 


ree ] ROUTINE DELETE_HEADER(FILE_ID, HEADER): NOVALUE= : 
e288 1 lee ; 4 
447 7 3 4 
2258 1 ! FUNCTIONAL DESCRIPTION: : 
4479 ! This routine writes a deleted file header. + 
4481 1 ! INPUT PARAMETERS: 3; 4 
44 ; ; FILE_ID - File ID of the header. 3! 
4 ; HEADER - Pointer to file header. F 
4485 1! IMPLICIT INPUTS: g 4 
44 1! NONE 3 
4487 1! ; 
4488 1 ! OUTPUT PARAMETERS: 3; 4 
4489 1! NONE 3 
4490 1! g 4 
4491 1 ! IMPLICIT OUTPUTS: 3; 
449 1! NONE 3; 4 
44935 1! 3 4 
4494 1 ! ROUTINE VALUE: g 4 
4495 1! NONE 3; 4 
4496 1! g 
4497 1 ! SIDE EFFECTS: 3; 4 
4498 1! File header written. $ 
4499 1! g 4 
4500 1 !-- 5 4 
4501 1 3 4 
2208 BEGIN 3 4 
450 MAP g 4 
4504 FILE ID: REF BBLOCK, ' Pointer to file ID 3 4 
4505 HEADER: REF BBLOCK; ! Pointer to file header 3: 4 
$288 LOCAL i 4 
450 FILE_NUMBER, ' File number from file ID g 4 
4508 RVN;~ ! RVN from file ID 3 4 
reat 7 
4511 : Spapcatety reinitialize the header if it is invalid. Otherwise, use the 2 
t21§ old copy to preserve the file sequence numbering. : 
4514 if VERIFY _HEADER(.HEADER, .FILE_ID) EQL 0 3; 4 
4515 THEN ; 4 
$218 GIN 3 
451 CHSFILL(O, 512, .HEAD Rd; $s ! 
4518 HEADER FHGSB_STRUCVER) = 3 
4519 HEADERCFH2$B~ STRUCLEV verRUcTURE LEVEL; 3 
4520 IF .STRUCTURE_LEVEL EQL “2° 3 
4521 THEN HEADER[LFH2SW -FID_SEQ) = .CURRENT_TIME<16,16> $ ! 
$2 § ELSE HEADERLFH $w- FID- “SEQ) = .CURRENT_ _TIME<16,16>; : 
$2 4 5 
4525 3 
$2 § Initialize the header as a valid deleted header. : ! 
45 8 IF .STRUCTURE_LEVEL EQL 2 s ! 
$2 THEN $4 
4530 BEGIN a 
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14-Sep- 
ROUTINE CLEAR_EXT_FID(FILE_ID,HEADER): NOVALUE= 


VERIFY. SRCJVERIFY. 


144 
i 


i FUNCTIONAL DESCRIPTION: 
This routine clears the extension Linkage in the specified header. 


INPUT PARAMETERS: 
FILE_ID - File ID of the header. 
HEADER - Pointer to file header. 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
File header written. 


em 
FILE_ID: REF BBLOCK, ! Pointer to file ID 
as. HEADER: REF BBLOCK; ! Pointer to file header 
MAP_AREA: REF BBLOCK; ! Pointer to map area 


Clear the extension Linkage. 
iF .STRUCTURE_LEVEL EQL 2 
THEN 


BEGIN 
HEADERCFH2$W_EX_FIDNUM] = 0; 
HEADERLFHOSW-EX-FIDSEQ) = 0: 
HEADERLFHOSW-EX-FIDRVN] = 0; 

ELSE 
BEGIN 
MAP_AREA = .HEADER + .HEADER(FH1$B_MPOFFSETJ®2; 
MAP~AREA Fi Su _EX_FILNUM) = 0; 
MAP~AREALFM1$W-EXFILSEQ) = 0; 


Rewrite the header. 
WRITE_HEADER(.FILE_ID, -HEADER); 


Sie Pee tiie. Bul 


0000 00000 CLEAR_EXT FID: 
QORD 


WO 
51 AC 00 2 Vv 
02 00000008 +H 01 6 CMPL 
8 i OGD BNEQ 
0 Al D OOF CLRL 
1 Al B4 CLRW 
0B 11 1 BRB 
28 0 Al 9A 17 18 MOVZBL 
0 614 E 18 MOVA 
02 Ad D4 if CLRL 
51 0D 00022 2$ PUSHL 
04 AC DD 00024 PUSHL 
FEBD «CF 02 FB 00027 CALLS 
04 0002C ET 


; Routine Size: 45 bytes, Routine Base: CODE + 37E3 
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Save potas 
HEADER, 
FRUETURE. LEVEL, #2 


MAP_AREA 


RADU SS HT 


$ 
6 
; 
( 
R 
( 
1 
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TE_HEADER 
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1 Bliss- 15 vel 
Vv 14-Sep- VERIFY.SRCJV (19) vO! 
io8 7833 ROUTINE READ_CHECK(FILE_ID,HEADER): NOVALUE= 
rhea te52 yi 
464) 46 g i FUNCTIONAL DESCRIPTION: 
rer ry : This routine read-checks the indicated file. 
4644 46 $ i INPUT PARAMETERS: 
4645 46 ! FILE_ID - File ID of the file. 
re ri re 3 HEADER - Header for the file. 
464 4630 1 | IMPLICIT INPUTS: 
recs re 1 TOTAL SIZE - Size of the file, determined from map area. 
4651 46 : i OUTPUT PARAMETERS: 
rhe tess i = 
4654 46 ¢. i IMPLICIT OUTPUTS: 
SE | Ie 
465 4639 i ROUTINE VALUE: 
ert 
4660 464 i SIDE EFFECTS: 
4661 464 ! ALL allocated blocks of the file read and errors reported. 
466 4644 ! 
4 4645 leo 
4646 
466 4649 FILE_ID: REF BBLOCK, ' Pointer to file ID 
4668 4650 HEADER: REF BBLOCK; ! Pointer to file header 


BUFFER_SIZE 


« Size of file buffer 
BUF FER-ADDRESS, 


Address of file buffer 


ee ee 
Bee Oe ee Be Oe BEE ee Oe Se Be Be Se Oe Se See Se Be Be SHH Se SESH Se Se Se Se Se Se ae SESH Se Se Se Se Se Se Se Se Be ee ee HOH Se SESH Se Se Se ae 
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467 4654 VBN Current V 
467 4655 STATUS; Status variable 
4674 $028 
4675 465 
4676 4658 ! If file size is zero, there is nothing to do. 
4677 4659 : 
4678 4660 IF .TOTAL_SIZE EQL 0 THEN RETURN; 
4679 4661 
4680 1066 
4681 466 ! Access the file being read-checked. Call ACCESS_INDEX_2 to deaccess the 
468 4664 ! second channel in case it is being used. If the access fails, report it 
68 4665 ! and quit. 
46 46 ! 
4685 466 ACCESS_INDEX_2(0); 
4 466 CHSFILC(O, FTOSE LENGTH. FIB); 
& 4 FIBCFIBSL_ACCTL) = FIBSM_NORECORD; 
4 4670 2 FIBCFIBSW-FID_NUM) = .FICE_IDCFID$wW_NUM); 
4689 4671 FIBLFIBSW_FID SEQ) = .FILE_IDCFID$W_SEQ); 
4690 467 FIBLFIBSW_FID RVN) = .FILE_IDLFIDSW_RVNI; 
4691 P 467 STATUS = $0100 
469 P 4674 FUNC=10$ ACCESS OR 1OSM_ACCESS, 
469 P 4675 CHAN=, CHANNEL | 
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QGESEANS 


NS ooocccee 
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SANS NS 
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f .° 
Main module Sep 4 AX-11 Bliss-32 V4.0-74 e 15 
19-3 Sep 138% 9: 33: 7 YOERIFY SREIVERIYY o3004 age 135 
467 10SB8=10SB8 
ser? Pieri DESC); 
4 £8 IF .STATUS"THEN §TATUS = .10S8C0); 
467 IF NOT .STATUS 
4680 THEN 
4681 BEGIN 
46 § HEADER_ERROR(VERIFYS_OPENFILE, .FILE_ID, .HEADER, .STATUS) 
46 RETURN; 
4684 END; 
ise 
46 ' Allocate the buffer. Use the size of the file, thresholded 
4o8s 2 | FILE_BUF_COUNT. choad hn a ean meet 
4690 © BUFFER_SIZE = MINU(FILE_BUF_COUNT TOTAL size 
4691 STATUS = LIBSGET_VM(ZREF(.BOFFER §1 T2), birrer +1 tiie 
re? IF NOT .STATUS TREN SIGNAL(VERIFYS$ TAELOCREA, "0, .STATUS 
4694 
reed } Loop over all blocks of the file. 
469 VBN = 1; 
4698 WHILE .VBN LEQU .TOTAL_SIZE DO 
4699 BEGIN 
4700 LOCAL 
44 THIS_BLOCKS; ! Count of blocks to read on current iteration 
470 
rt 4 Compute how many blocks to read on this iteration and read them. 
470 iHIs BLOCKS = MINU(.BUFFER_SIZE, .TOTAL_SIZE + 1 = .VBN); 
470 STATOS = $Q10W 
4708 FONCeiOS MANNED Sen” 
tri fosbcioee 
4711 Piz, Burren ADDRESS 
Arie Pee =. THIS $ BCocks * 512, 
4714 IF . STATUS THEN STATUS = .10SB(0]; 
ne 
api9 ! If an error occurred, read each block individually, reporting errors 
St as we go. 
4720 if NOT .STATUS 
4721 THEN 
47 ; 4 BEGIN 
47 4 INCR XVBN FROM 0 TO .THIS_BLOCKS-1 DO 
4724 BEGIN 
4725 STATUS = pajout 
47 § puecsee MRANEL es 
of a smvee 
47 : pisse = BUF irreR ADDRESS, 
4731 VBN + .XVBN); 
4732 IF STATUE THEN STATUS = - 10880); 


j 
—— 


. 
oa 
. 
oe 
. 
6 
. 
. 
. 
. 
. 
. 
. 
o 
- 
a 
. 
om 
. 
. 
o 
a 
. 
o 
. 
* 
. 
on 
. 
a 
. 
° 
. 
o 
. 
. 
. 
oe 
. 
cs 
. 
a 
. 
oe 
. 
2 
- 
a 
. 
o 
a 
. 
a 
. 
. 
. 
. 
. 
e 
. 
o 
. 
- 
. 
e 
. 
2 
. 
o 
~ 
. 
7 
* 
. 
. 
. 
o 
. 
. 
. 
. 
. 
a 
. 
. 
. 
* 
. 
- 
. 
« 
. 
o 
. 
. 
. 
. 
. 
- 
- 
* 
. 
. 
. 
. 
. 
. 
. 
” 
. 
7 
. 
. 


Sm 


a kk ek 


ix WR Re OR a ee a ae eee ee ee ee ee 


na o o ~-~ oO fo wr 
wo - oO “Co fo OF~Y RH 
-— ~o oO “Co Oo OO OO 
.” + + a a a a 
a *e ete re tare te rae *e eee tere ee rea sere ee teeta te ee te ee ee ee 
| @ 
i a 
- 
=- 
« 
7 
oO 
- 
Ne a 
wT +s. oo 
~~ o 
33 = 
. 
ee. @ 
w> = 
>u . 
~ ~ @ 
ve [+ 4 _ 
mu ba ve 
i> oO 
or a Ns 
nun . wr 
—cx w =o 
wn c- wae 
@m-« —_— Qa 
> Taco z2:+ @ a 
~--X cen -—Oo co 
meet - es wow + =~ se 
‘cc ma w nn a+@ a an 
>< uu qa. ~ ” s >.> @O- AN OC AD 
<z> Zz3o = wn WN tee vw ~~ | We 
>w NoOoOoOc Ww vo MOuw ” ‘i+ et 
cn a eon oe . w w We 
. ng mo adm. — § mR Rnranm s [7] 
~ SAAD <« a Oow-oO0o0aa Of& wea + 
w >QOwwW Mss ONSOZMMWONOuW —awrw «+ 
om ” o=—>OD08 ~~ CO Nee ewew WO I~ CO 
Ne 4 NIN '=2e Bur~r~wsviiiuvi@q@eviac 
we. a 
—~ as 2 | 
oe oe <=- tbh or own Oo 
en on < aid av WIIIBOO ITO INst 
gt port “SSooSnZn5<25 Sa00sSSSSSSSS25 
w 
ww wt v S22arSecoSe Sleeeccocaceasacs2 
fe ot. e} wr w 
oo aM = 
-— @ms. VY 
‘ss a 
aa . oa 
“oee “Oo < oe 
mn ~N w P 
i) *. - * i 4 - 
le a “= BOR <OuMNn<— 70-0 «< 
oe w ~ -wT YVWOwWOwd 
=> += s ooerene SSSYARRRARSSS 
_ w . S SOOCCOCCOOCOOCOOOCOOSOSOOOOCOOOOoOoOoOoO 
<< uous ao] S SOSCSCCOOCOCSOOSOOCSOSOSOOOOOOOoOOoOOoOOoOSoSO 
=r Na e So 
www — = 
2 * w +t fe) Y WWW TOY OOOCOVUTu VOostov DO 
“ee bx a ee ACOvVvOK-COeKWV COOOB-f OCf- OCP Ook 
wu s «> = rr 
ortZz [vere v oO 
<« -@ wa ‘ COu@Dun — We OC uk VOOWWWis WO uu WvUO 
w > . rT: 4 vo COOwowo FOOVOLOERPRR VP MOuUrOW 
~—a ” Dw @e 
=< © ae a> we 
oenw- Vv ~ — WOVve- - © 
” &> Oo ~ coo o& wow ww < NOS 
> @uw | “ oa coo o& zoo oOo =) ro 
—- weer @ w c ooo oOo wo ~ o 
e xr-@m a aw al ooo oO uO — So 
—- Cuan > “” Pe a * ooo oOo So o 
* w> ss ~ ~—n 2 +s ooo oO N > 
- 2 =x = nn coo oOo o So 
<= — >z ov wr ooo oO o o 
—- w . ° Qu i ~ 1 
3 x j{ wr - v4 Ooamow ew SOOO ive) «wm 
4 - + eo wre - qw MAW eo VMUU La own 
w a - = wz 
= z Zz - a a | 
=e w @ > #2> od 
> 2 @e oa Az ~ Tr wow 
oa Satan 4 ow < Tr ww 
=z oe —j- “ — ° Vv w ww 
we R= ”" wn “uu ve —_— wee 
*. coe “ee a 23 
za e) z 
az ee We sv wot 
>w eo = @ ae 
. - oe *e 
a uo <« olf a oOo 
=~ oe i=] z o 
= | = We 1m oh ws 
2 - - 
c PYTFTNOP- DOO CIMT NOR. DOO UM TNO 
- WIN TF SF TF SF TST TTT TOON 
© Ll Bel Riel Die Dae Dl De Ded Ded Dd ed ed ed ed ed ed Dd ed dd ed dd 
= vwvwvvwvvwvwvvwvvvv vr 
aa 
— 
oO 
o 
— MAMAN OOOO OOOO OOP APR 
_ bl el Dd Dd Deed Died Ded Ded Dd ed ed dd dd ed ed ed ed ed 
ws ee ee ee ee ee ee ee 
*Peeee eee eee ee ee sere sere se ete *e 8 ee +e ee te te te 


H 6 
RIFY Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 Pp 5 
VBe 000 eRtiae ts ran et Hd Me ora ee tg ee ae tee age 138 
55 £9 C BLB STATUS : 4678 
i F Boy suL 1058. <Sratus ; 
1 E BLBS + 4679 
DD 2$ PUSHL STAT tf + 4682 
08 AC DD 0007 PUSHL HEADER : 
DD 0007A PUSHL : 
000000006 &8F DD 0007 PUSHL #VERIFY$_OPENFILE : 
0000v CF 4 FB cA LS #4, HEADER_ERROR ee 
0 00000000' EF D 3$: MOVL TOTAL_SIZE, RO + 4690 
00000040 Ft 9 b 7 eh e , #84 : 
59 40 8 48 MOVZBL #64, RO : 
0 DO 0009C 4s: OVL RO, BUFFER SIZE : 
04 AE F OO09F PUSHAB BUFFER ADDRESS + 4691 
58 52 : : A2 ASHL #9, BUFFER_SIZE, R8 : 
04 AE 8 p Ab MOVL RB. 4(SP) : 
04 AE 9F OOOAA PUSHAB 4(§P) : 
000000006 99 FB OOOAD CALLS ne, LIBSGET_VM : 
DO 00084 MOVL TUS ; 
0d E 90087 BLBS STATUS, 5$ + 4692 
5 DD OOOBA PUSHL STATU ; 
E D4 000BC CLRL.  =(SP) ; 
000000006 BF DD OOBE PUSHL ayERIFYS ALLOCMEM : 
“e 3 FB cs CALLS #3, LIBSSIGNAL : 
5 94 DO 000C7 5$: MOVL * VBN + 4697 
00000000 EF ; D1 OOOCA 6$: CMPL - VBN, TOTAL_SIZE + 4698 
03 18 00001 BLEGU 7$ : 
0098 31 00003 BRW 14$ : 
51 00000000" EF i C3 0006 7$: SUBL 3 VBN, TOTAL_SIZE, R1 + 4706 
50 D0 G06 MOVL § BUFFER_SIZE, RO F 
51 50 (1 OE CMPL _— RO, RI ; 
1 0 EG BLEQU ; 
50 1 0 OE OVL 1, RO : 
§ 0 p EB 8$: MOVL RO, THIS_BLOCKS : 
E 7C OO0E CLRO 2s = ( §P) : 4713 
43 D4 OOF CLRL 0s = (SP) ; 
5 bp OOF PUSHL VBN : 
7E 57 09 O0F4 ASHL. #9, THIS BLOCKS, -(SP) : 
18 AE DD OOOF8 PUSHL BUFFER. ADDR : 
ze C O00FB CLRQ ; 
; DD OOOFD PUSHL : 
1 DD OOOFF PUSHL #49 : 
00000000' EF DD 00101 PUSHL CHANNEL 2 : 
D4 00107 CLRL (SP : 
A i f 9 CALLS #12, : Syssaiou : 
06 t 10F BLBC eraTUS ATYS + 4714 
2 ¢ 11 MOVZWL I0SB, STATUS ; 
6A E 11 BLBS STATUS, 13$ : 3780 
54 1 ce 118 9$: MNEGL #1, XVBN : 47 
41 } 118 BRB leg ; 
7E 7C 00110 10$:  CLRQ (SP) : 4731 
3 4 OO11F CLRL = (SP) : 
6443 OF 131 PUSHAB (XVBN)CVBN) : 
7E 0200 BF 3C 00124 MOVZWL #512, -(SP) : 


; | 
RIFY Main module 1b-se -1984 02:15: AX-11 Bliss-32 V4.0-74 Page 159 
V5e e000 1 ~$00- 138% 9¢:33:49 VERIFY. SRCIVERIFY.B32; 9 19) 
18 AE bp 129 PUSHL BUFFER_ADDRESS : 
f C 0010C CLRQ.  =( SP) : 
DD 001 PUSHL RY : 
1 DD 001 PUSHL #49 : 
00000000' EF DD 001 PUSHL  CHANNEL_2 : 
E D4 001 CLAL 5(3P) : 
A F 13A CALLS #12, SYS$Q10W : 
5 dO 001 MOVL RO STATUS : 
: 14 BLBC STATUS, 11$ + 4732 
2 ¢ 14 MOVZWL OSB, STATUS : 
1 E 146 BLBS TATUS, 12$ + 4733 
} BD 149 11$:  PUSHL §TATU : 4738 
6443 9F 00148 PUSHAB (XVBN) CVBNJ : 
08 AC DD 0014 PUSHL HEADER t 4737 
6 DD 001 PUSHL R : 
000000006 BF DD 001 PUSHL #VERIEYS READFILE : 4735 
0000v CF 5 Ff 1 CALLS #5, HEADE 3 
34 7 F 15€ 12$:  AOBLSS THIS_BLOCKS, XVBN, 10S + 4723 
3 7 162 13$:  ADDL2 THIS"BLOCKS, VBN + 4741 
FF62 31 0016 BRW + 4698 
04 AE F 00168 14$:  PUSHAB BUFFER ADDRESS + 4747 
04 AE 58 DO 00168 MOVL RB, 4(SP) : 
04 AE OF O1gF PUSHAB 4(SP) : 
000000006 90 9 F 1 : CALLS 2, LIBSFREE_VM : 
D O17 MOVL RO, STATU ; 
0D 55 £8 0017C BLBS STATUS, 15$ + 4748 
33 DD 0017F PUSHL STATUS : 
E D4 00181 CLRL. -=( SP) : 
000000006 8F DD 00183 PUSHL #VERIFYS FREEMEM : 
68 93 FB 00189 CALLS #3, LIBSSIGNAL ; 
— 7C 018¢ 15$: CLRQ -<§P) + 4755 
7E 7C 001 CLRQ = = (SP) : 
7E 7C 001 CLRQ ss =(SP) : 
7E 7C 019 CLROQ 43?) : 
7E 34 70 00194 MOVQ #52, =(SP) : 
00000000' EF DD 00197 PUSHL  CHANNEL_2 : 
E D4 0019D CLRL. = (SP) F 
6A OC FB 0019F CALLS #12, SYS$Q10W ; 
04 001A2 RET : 4756 


; Routine Size: 419 bytes, Routine Base: CODE + 3810 
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ROUTINE FILE_ERROR(MESSAGE ,FAB,EXTRA1,EXTRA2): NOVALUE= 
tea 


' FUNCTIONAL DESCRIPTION: 
This routine signals a file-related message. 

INPUT PARAMETERS: 
: MESSAGE - Message code for first message 
= Pointer to FAB, from which file name 

will be obtained 
Up to two additional input parameters are additional messages -- 
except if the message is one of the special cases, they are 
additional FAO arguments. 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 


i 

' 

i 

i 

i 

' 

i 

i 

i 

i 

i 

i 

i 

1 

' OUTPUT PARAMETERS: 
NONE 

i 

i 

! 

i 

i 

i 

' 

The messages are signalled. 
le 


BEGIN 
MAP 
REF BBLOCK; ! Pointer to FAB 
: REF BBLOCK, ' Pointer to NAM block 
DESC: BBLOCKL8), ! Descriptor for signal 
euiLtin PARAM: VECTORL6); !' Signal parameter list 


ACTUAL COUNT ; 


LOCAL 


YPE] = 
ASS) = 
_RSLJ NEQ 0 


ABCFABSL "9: 
$3 


N 
EDSCSW_LENGTH] = -NAMCNANSB RSL); 
DSCSA-POINTER] = .NAMCNAMSC_RSA}; 


j= -NAMCNAMSB ESL); 
TER] = .NAMCNAMSC_ESA; 


= we es a ee ee es ae ee es ee ee ee ee ee ee ee ee ee ee ae ae ee ee 


Main module 


0] + 1; 


= 
0] + 1; 
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- PARAM 
EXTRA 

= .PARAM 
= EXTRA 


S 
5 
0 
4 
END; 
IF ACTUALCOUNT() GEQ 4 
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RIFY Main module 18-5e Sep-1984 AX-11 Bliss-32 V4.0-74 Page y 
Vibe 000 1 ety 7 ¢: }3: 79 VERIFY’ SRC ROY eaiyy B35° ° 383 vor 
6— D ¢ INCL PARAM ; 4829 
10 AF 0c AC MOVL XTRA1, PARAM+16 3 4 
0 6¢ 9 4$: CMPB AP), #4 : 4 
1F C BLSSU $ Fy 
6E dé INCL PARAM 3; 4835 
14 af 10 AC D $8 MOVL EXTRA2, PARAM+20 : 4836 
000000006 0 6E FA 00065 5$: CALLG PARAM, LIBSSIGNAL : 4840 
04 0006C RET : 4841 


; Routine Size: 109 bytes, Routine Base: CODE + 3983 
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v04-000 -Sep-1 VERIFY.SRCJVERIFY. §33' 

; re ¢ : t§ } ROUTINE HEADER_ERROR (MESSAGE ,FILE_I1D, HEADER, EXTRA1,EXTRA2, EXTRAS, EXTRAS, EXTRAS): NOVALUE= ; P 
> 4864 4844 1 44 ; 

; 4865 4845 1 | ; 

3; 4 § & rk 1 | FUNCTIONAL DESCRIPTION: : 

3 Z tf Q ri : This routine signals a header-related message. ‘ 

: 4869 4 rk 1 ' INPUT PARAMETERS: : 

: 4870 4850 1! MESSA GE - Message code for first message : i 
; 4871 $3 11: FILE - Pointer to file ID ; 

; 487¢ 4 : 1 i HEADER. - Pointer to header in memory or zero if not | 
3 rt th tbez : EXTRA... - Extra parameters, decending on message ar 
; 4875 4855 1! IMPLICIT INPUTS: : 
: re fa} ret 1! NONE : 

3 487 4857 1! } | 
; 4878 4858 1 | OUTPUT PARAMETERS: 34 
; 4879 4859 1 | NONE i 
; 4880 rer ¢4 i 2 4 
; 4881 4861 1 | vate OUTPUTS: 3] 
; 488 4868 1! ONE i 
; ret 486 1 i ; i 
; 4884 4864 1 | ROUTINE VALUE: 3 
; 4885 4865 1: NONE $3 
; 4886 4866 1} i 
; 4887 4867 1 | SIDE EFFECTS: . : i 
; 4888 4868 1} The message is signalled. - 
; 4889 4869 1! 3 
; 4890 4870 1 i- Fe 
3; 4891 4871 1 $7 
; 489 487 BEGIN . 
: 489 487 MAP 3 4 
; 4894 4874 FILE_ID: REF BBLOCK; ! Pointer to file ID ee 
; 4895 4875 LOCAL 37 
3; 4896 4876 FILENAME: VECTORCFI2$S_FILENAME + F12$s FILENAMEXT + BYTE), : } 
; 4897 4877 ' Buffer for ASCII iiaeene” 33 
; 4898 4878 PARAM: VECTOREI 3) Slonat arameters : 
> 4899 4879 BUFFER: BBLOCKE5124, i Header buffer 3 | 
; 4900 4880 HDR: REF BBLOCK; ! Pointer to good header : ij 
; $38) $33) ij 
; 490 iB ! If the file sequence number is 65535, cover the error. This is probably a : 
: the rt : ; file header that we deleted earlier. ij 
2306 4 iF .FILE_IDCFIDSW_SEQ) EQL 65535 3 | 
: 4908 & 3 RETURN; | 
: 4909 48 3 j 
; 4910 4890 | 
3 tat : 4 Initialize the beginning of the signal vector. : ij 
: 491 2898 5 PARAM(O) = 7; 3 
> 4914 4894 2 PARAML1] = MESSAGE; a 
: 4915 4895 2 PARAM ‘ = §; : | 
> 491 4 % PARAMCS) = .FILE_IDCFIDSW_NUM] + .FILE_IDCFIDSB_NMX) * 16; :} 
> 491 489 PARAM(4) = .FILE-IDCFID$W~SEQ); 5 | 
; 4918 4898 PARAMLS) = .FILE_IDLFIDSB_RVNJ; a4 

| 
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| 


! Get the file name. If no header was peesee read the header. 
! If reading the header fails, use a null string. 


if 


HDR = BUFFER; 
READ HEADER(.FILE_ID, .HOR) 


ELSE 
TR 


END 
THEN 

BEGIN 

LOCA 


UE 


L 
IDENT_AREA: REF BBLOCK; ! Pointer to ident area 


IDENT_AREA = .HDR + HORE FH2SB_ IDOFFSETJ*2; 
a hei .STRUCTURE_LEVEL EQ 


BEGIN 
CHSCOPY ( 
P1285. _FILENAME, IDENT _AREACFI2$T_FILENAME), 
FI2$S_FILENAME + FI2$S_FILENAMEXT + 1, FILENAME); 
IF (.HDRCFH2SB_MPOFFSET] = .HORCFH2$B_IDOFFSET]) * 2 
gE QU SBYTEOFFSET(F 128i _FILENAMEXT) + FI2$S_FILENAMEXT 


YTE 
Vv 
I 
D 
I 


(FI2$S FILENAME + FI2$S_FILENAMEXT + 1, FILENAME, %C° ‘) 


mau 
o 
o 

mx 

-_ 


PARAMC63 = MAKE STRING( 
IDENT AREA FI1SW_FILENAME] - SBYTEOFFSET(NMBSW_NAME), 


PARAM? = FILENAME; 


mn 
— 
an" 


PA = hor: 
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2. ISSIR BERD GIVES tf 


Sa 


-Sep-1 VERIFY. SRCJV 

: O378 $328 $ 

: $35 re 4 Handle a variety of special cases for the message code. : 

3; 497 49 IF r 

; 4980 4960 -MESSAGE EQL VERIFY$_READHEADER OR 3 

; 4981 4961 -MESSAGE EQL VERIFYS"WRITEHEADER OR ; 

: 49 496 -MESSAGE EQL VERIFYS-OPENFILE OR ; 

; 49 496 -MESSAGE EQL VERIFYS_ENTERLOST OR ; 
3 4 4964 -MESSAGE EQL VERIFYS_DELETE 3 5 
; 4985 4965 3 ; 

: 4986 496 BEGIN ; 
3; 49 496 yet = 8: 3 é 

+ 4988 496 PARAML8) = .EXTRAI; ; 
: 4989 £33 END 3 3 
; 4990 4970 ELSE IF 3 3 
+ 4991 4971 .MESSAGE EQL VERIFY$S_READFILE : 5 
3 499 497 THEN : 5 
3 499 497 BEGIN 3 5 
3 4994 4974 PARAM = 9; | 
: 499 4975 PARAM = 6; 3 5 
; 497 PARAM(8) = .EXTRAI: 3 5 
: 4997 497 PARAML9)] = .EXTRA2: 7 5 
; 4998 497 s 3 
; 4999 497 ELSE IF : 5 
; 5000 4980 »MESSAGE EQL VERIFYS$_MULTALLOC 3 5 
; 2001 4981 THEN 3 5 
: 008 498 BEGIN 3 5 
; 500 49 PARAM = 12; 3 3 
3 5004 4984 PARAM = 10; 3: 5 
; 5005 4985 PARAM = ,EXTRA1; > | 
; 5006 498 PARAM = .EXTRA2 3 5 
: 5007 498 PARAMC10) = . EXTRAS; : 5 
; 5008 498 PARAM(11] = .EXTRAG: 3 5 
3 5009 498 PARAML12] = .EXTRAS; : 5 
; 5010 4990 END; : 4 
; 5011 4991 3 5 
3 apt¢ 499 3: 4 
; é 1 499 ! Finally, signal the message. 34 
: 5014 4994 ' 3 3 
; 5015 4995 CALLG(PARAM, LIBSSIGNAL); : 5 
; 5016 4996 1 END; : 

O3FC 00000 HEADER_ERROR: 3 

. WORD Saye R2,R3,R4,R5,R6,R7,.RB,RI : 4842 3 

SE FD74 CE i 03 MOVAB -652(SP5, §P : : 

08 ar MOVL BILE ID, R > 4886 3 

FFFF =F A 81 CMPW ec J, #65535 ; ; 

01 04 : ere $ 3 : 
FF74 gp 07 14 1$: MOVL #7, PARAM : 4893 2 | 
um OM BRB REESE it beet 
FF7C CD 88 D 8 MOVL PARAM+8 > 4895 : | 


7 
VERIFY Main module 1b-se -1984 02:15: AX-11 Bliss-32 V4.0-74 p 
VOe 000 12288-1382 9¢:33:99 VERIFY SREIVERIVY 3509 age 396 
1 05 AO 9A ? MOVZBL 5(RO), RI : 4 “¢ 
51 1 1 ts B ASHE #16 Al, RI : ~~ si 
¢ g9 36 F MOVZWL (R §, Re : 3 | 
80 AD ‘ ADDL R2, R1, PARAM+12 : 2 i 
84 AD 2 Ad 3 MOVZWL e (RO), PARAM+1 + 4897 2 i 
AD 4 AO OA MOVZBL 4(RO). PARAM+2 + 4898 3 i 
56 C AC BO 9004 MOVL HEADER, HOR i $906 3 i 
OF 4 BNEQ 2 + 490 3 i 
56 E 9E 0004 MOVAB BUFFER, HDR + 4910 3 i 
0041 8F BB OO04A PUSHR #*M<RO.R6> + 4911 2 i 
FBB3 CCF : FB 4f CALLS 2, READ_HEADER : 3 i 
§¢ 2 BLBC R 7 : | 
66 A § 28 MOVZBL (HOR), R? + 4921 
58 664 F 05 MOVAW (HDR)CR7J, IDENT_AREA : 
02 00000000° Ff pt 5p cHPL STRUCTURE LEVEL, #2 + 4922 
0057 BF 20 68 ‘a i 2c 066 MOVCS 720, (IDENT_AREA), #32, #87, FILENAME + 4926 
56 01 Ag 9A O6F MOVZBL 1(HDR), R6 + 4930 
5 s7 2 ours Sig! nr : 
00000078 56 1 Boor = EReL AS. B20 j 4931 
BC AD 36 A 0042 8F ¢8 itt MOVC #66, 54(IDENT_AREA), FILENAME+20 + 4936 
AS AD 0057 = BF 0 3A OOOBA 3$: LOCC #32, #87, FILENAME 3 4939 
2 12 00091 BNEQ 4$ : 
1 04 00093 CLRL RT : 
50 ABS AD Hs 0095 4$ MOV FILENAME RO + 4940 
8C AD 51 50 ¢3 00099 SUBL3 RO, R1, PARAM+24 : 
11, 11 000 BRB 6$ : 4922 
A8 AD 9F OOOAO S$ PUSHAB FILENAME + 4944 
FA AB OF OOOA PUSHAB -6(IDENT_AREA) + 4945 
000000006 EF 9 FB O0A6 CALLS #2, MAKE-STRING ; 
C AD DO OOOAD MOVL RO, PARAM+24 3 
0 AD AB AD 1 00B1 6$ MOVAB FILENAME, PARAM+28 + 6948 
07 11 00086 BRB 8$ > 4 
8C AD D4 00088 7$ CLRL PARAM+24 : 495 
90 AD 26 DO 00088 MOVL HDR, PARAM+28 : 495 
000000006 8F } D4 OBF BS CPL RY. #VERIFY$_READHEADER ; 4960 
000000006 8F §5 p ° cB CMPL RY. #VERIFY$_WRITEHEADER 3 4961 
000000006 aF 39 p D CMPL RY. AVERIFYS_OPENFILE ; 4962 
000000006 8F : : 0 DA cHPL R9, #VERIFYS$_ENTERLOST 4963 
000000006 8F 2 pi 09 eS CMPL RG, AVERIFYS_DELETE ; 4964 
FF74 CD : D EC 9$ MOVL #8, PARAM > 4967 
94 AD 10 ac p Fl ROVL XfRA1, PARAM+32 4968 
000000006 8F 35 p i 108: (HPL RD, AVERIFYS_READFILE : 4971 
FF74 CD 09 DO 00101 MOVL #9, PARAM : 4974 
FF7C «CD 6 p 1 MOVL #6. PARAM+8 : 4975 
94 AD 10 aC D 001 mova EXERAT, PARAM+32 > 497 
22 11 0011 BRB 2$ : 497 


0 7 
RIFY Main module 16-Sep-1984 0 : AX-11 Bliss-32 V4.0-7 Page 167 VEl 
yoo 000 14- ~tep- -1984 1 9¢:33:99 VERIFY. SRC VERIFY 832s ° (21) vO: 
000000006 8F 59 p 112 118: CMPL R9, #VERIFY$_MULTALLOC : 4980 
1 BNEQ 1 : 
FF74 CD o¢ D 1 MOVL #i2, PARAM : 4983 
FF7C = CD A 1 MOVL #10, PARAM+8 : 49 
34 AD 1 AC 7D 001 MOV XTRA1, PARAM+3 : 49 3 
C AD AC B 120A mova XTRAS, PARAM+4 : 49 
AG AD AC D 10F MOVL XTRA5, PARAM+4 + 4989 
000000006 00 FF74 = CD FA ‘ 128: CALLG PARAM, LIBS$SIGNAL : 4995 


; Routine Size: 318 bytes, Routine Base: CODE + 3A20 
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OUTINE PROCESS_F ILE (NAME ,VERSION)= 


'e¢ 


FUNCTIONAL DESCRIPTION: 
This routine processes one selected file. - 


INPUT PARAMETERS: 
NAME 


ono 
SSSSSS805 


NOME AN @§ OOO NAUSEA @ OOO NAU EWN SH OCONOUE WOOO 


- Pointer to ASCIC name string from directory entry. 
VERSION - Pointer to version entry. 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


OONAVES WN ("OO ODNOUS WOO 


COOOOCCCOCOCOOCOCOCOOOCOOOCOO 
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ROUTINE VALUE: 
True if the directory entry points to a valid file, otherwise false. 


SIDE EFFECTS: 
NONE 


REF BBLOC ' Pointer to version entry 
LOCAL 


eee efololelelolelolelelelelelelelololelololo! 


MWATOPSPINIPONOPOPOPONG 2 2 2 Ss IO 


FILE_ID: BBLOCKCFIDSC_LENGTH], ' Clean file ID 

FILE NUMBER, ' Clean file number 
RVN; ' Clean RVN 

et clean file ID. 


E_NUMBER = .VERSION 
E R 8> = 


PUDVLV DVD PUP DPU DVS DU SDV IUPUI SISUDUST ST STSI SI SISIISISISISIIUIVIT 
PUPVLVLVLULUSU LV SULUSVLIVSIUSIUSIUSVSE SULTS VSIVSISISVSISISISIISISISIOSIOSIST ES ~~ 


RARRRARRAR EE EER ER EEE 


EUSCS ERIE SE ove eo eae ates 


NUM); 
$B_F16_NMX); 
.VERSIONCDIRSB 

THEN DCF ID$B_RVNI:; 
R<16,8>; 
RSW_F ID. SEQ]; 


999 ore tee 


: 
RVN 
_ID 
“1D 
“1D 
“1D 


Check file ID. First, make sure the RVN is in range. Then, make sure the 
are number is in range. Then, make sure the file number corresponds to a 
va 
fil 


Ss 
FREEEL 


Wwn—O0 


id header. Then, make sure the file sequence number matches that in the 
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1 
BEGIN 
MAP 
NAME : REF VECTORC,BYTE), ! Pointer to ASCIC name string 
VERSION: K; 

| 

e header. 

| 

| 

} 

} 

| 


PUPP PPP PAA 
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NNN 
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| 
vO4~000 ext pees: 1erSepm19be 89:27:58 WgaLeyesnedveRsrYs0324 Pane (38) vor 


; 5075 4 IF .RVN GTRU .VOLUME_COUNT 

; 507 5 THEN 

; 7 § TRUE 

; O78 it 33 IF .FILE_NUMBER=1 GTRU .MAXFILIDXC.RVN=1) 

: 508 : TRUE 

; 8 1 ; i 4 IF NOT .BITVECTORC.IMAPC.RVN-1], .FILE_NUMBER-1) 

; 0 § ¢ TRUE Six 

; eH oe -VECTORC.SEQMAPC.RVN-1), -FILE_NUMBER=1 ;,WORD] NEQ .VERSIONCDIRSW_FID_SEQ) 
: 087 O86 THEN 

: Oae BEGIN 

: 090 § ! Invalid file ID. Report it, and return failure. 

; 5091 070 ! 

; 509 071 SIGNAL ( 

3 Sar Ors ERIFYS_BADDIRENT, 

: 5095 5074 (fF .DIR_DESCCO] EQL 0 THEN MFD_DESC ELSE DIR_DESC), 

; epee 237? . NAME 

: 509 07% - VERSIONCDIRSW_VERSION)); 

: ene aoee IF DO_REPAIR() 

; tt 2079 ENTER_WORK(WRK_K_REMOVE, FILE_ID, DIR_FID); 

; 5101 epee FALSE 

3 2108 081 END 

; 510 ange ELSE 

3; 5104 508 BEGIN 

; 5105 084 

3 3106 085 ' Check the back Link. 

; 510 086 ! 

; 5108 087 IF .STRUCTURE_LEVEL EQL 2 

; 5109 088 THEN 

: 5110 089 4 BEGIN 

; gyi 090 4 LOCAL 

; ig 091 4 BACK_ID: REF BBLOCK; 

: ne O36 4 

3 5114 093 4 

: aii Bee 2 BACK_ID = VECTORC.BACKMAPC.RVN-1], (.FILE_NUMBER-1)*3 ; ,WORDJ; 

: sti? $98 4 

3 118 097 4 ' Compare the back Link recorded in the file header to the current 
3 et 94: 2 } directory file ID. Note that BACKMAP has clean RVNs. 

> $121 190 4 if | 
s 31 § 101 4 -BACK_IDCFIDSW_NUM] NEQ .DIR_FIDOCFIDSW_NUM] OR 

3; 31 1 § 4 -BACK_IDCFIDSW_SEQ] NEQ .DIR_FIDLFIDSW_SEQ) OR 

; 5126 1 q -BACK_IDCFIDSW_RVN] NEQ .DIR_FIDLFIDSW_RVN 

3; 5125 106 4 N 

: : $ : 5 BEGIN 
: 54 4 1 ' Report incorrect back Link. 

3 31 1 3 ! 

; 51350 1 GNAL ( 

3 5131 110 VERIFY$_BACKLINK, | 
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1$-se0-1986 2:15:20 yatet! BLiesc32 v4.0-742 
tte -DIR_DESCCO] EQL O THEN MFD_DESC ELSE DIR_DESC), 


oN 
VERS{ONCDIRSW_VERSION)); 


Fix the incorrect back Link. 
then REPAIR() THEN IF READ_HEADER(FILE_ID, BUFFER_2) 


Sine FHosu- BK =F 1D3ea) = .DIR_FIDCFIDSW_NUM]; 
BUrFER-$ W-BK_FIDSEQ) = .DIR_FID FIDSW_SEQ ; 
a HeSwW aes) = ,DIR_-FIDCFIDSw- wad: 
IF DCFIBSB-RVN] EQL .RVN THEN BUFFER_2CFH2SB _BK_FIDRVN) = 0; 
unite sah ILE-ID, BUFFER_2); 
END: © 
END; 


! Generate usage file entry if requested and if this is the first time 
this file has been encountered in the directory scan. 


LF ;,AUALCQUAL_USAG] AND .BITVECTORC.LOSTMAPC.RVN-1)], .FILE_NUMBER~-1) 


_BUFFERCUSGS$B_TYPE] = USGSK_ 
USAGE "BUFFER USGSL-F ILEQUNER} = aie -OWNERC .RVN=-1), .FILE_NUMBER-1 
USAGE BUFFER USGSLTALLOCATED = ve ETOR eALLOCATIONC.RVN-1), -FIL CNOnBER-13; 
USAGE BUFFERCUSGSL_USED) = .VECTORC.USAGEL.RVN-1), .FILE_NUMBER-1 
USAGE BUF FERCUSGS$W DIR LEN) = 
sole -DIR_DESCCO] EGL O THEN 8 ELSE .DIR_DESCLO) + 2) 
SDESCRIPTOR('C!AS)! 
USAGE BUFFERCUSGSW_ Spee UteNd, 


rt eb eM cee ed mitti? ~ SBYTEOFFSET(USGST_FILESPEC), 
USAGE BUFF SG$T_FILESPEC]) 
* 1. -5ESCCO] EQL O- THEN MFO “desc ELSE DIR_DESC), 
“VERS preiney, ERSION)); 
tare a8 RABSW = aby TEOFFSET CUSGST -FILESPEC) + .USAGE_BUFFERCUSGS$W_SPEC_LEN); 
1 SPUTCRABZUSAGE 


N 
FILE _E 
VERIFYS FACILITY + SHRS_WRITEERR + STSSK_SEVERE, 


AGE _F 
.USAGE_RABCRABSL_STS], .USAGE_RABCRABSL_STV)); 
Mark the file as found in a directory. 
BITVECTORL .LOSTMAPL .RVN~1], ~FILE_NUMBER-1) = FALSE; 
END 
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ACKMAPCRYN aP a0 
SLRS ERO Ba tx* % 
PtBACKS 5). DIR_FID 

(BACK_ID), DIR_FID+2 
4(BACK_ID), DIR_FID+4 
(R4), =(SP) 


FID, BUFFER_2+66 
D+4, BUFFER_2+70 
, DIR_FID+4> RVN 
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i IECREISEL GRUNER Pe 

CLRL Ri 

TSTL Rg 

BNEQ 15$ 

INCL R1 

MOVL #8, RO 


BRB 16$ 


5$: i. RO 
6$: MOVW R Fi USAGE _BUFFER+13 


5 
00000000" GF 
CVTWL «= (R4), ~=(SP) 
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R1, 17$ 
MOVAB MFO_DESC, RO 
B 18$ 
DIR_DESC, RO 
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C P.ABQ 
00000000' PUSHAB USAGE _BUFFER+15 
64 P.ABO 
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00000006 00 CALL us SYS$FAO 
00000000' EF 00000000' EF ADDW3 #17, USAGE_BUFFER+15, USAGE_RAB+34 
00000000' PUSHAB USAGE_RA 
000000006 00 CALLS #1, SYS$PUT 
7E 00000000' MOVQ —- USAGE_RAB+8, -(SP) 
00000000' PUSHAB USA 
000000006 D PUSHL #VERIFY$_FACILITY+4308 
FC34 ct FB CALLS #4 
0 0090 D5 DE 19$ MOVAL pete , RO 
00 FC BO Ss BBCC Re, a-4(RO), 208 
50 BO 208 OVL #1, RO 


; Routine Size: 532 bytes. Routine Base: CODE + 3B7C 
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198 ROUTINE PROCESS_SUBDIR(NAME,VERSION): NOVALUE= : d 
i fis : 
178 1 | FUNCTIONAL DESCRIPTION: : 5 
Vee : This routine processes one subdirectory entry. : 5 
126 1 | INPUT PARAMETERS: : 

(Mae NAME - Pointer to ASCIC name string from directory entry. : 
178 : VERSION - Pointer to version entry. : i 
180 1 | IMPLICIT INPUTS: : ; 
! 1 } NONE $ ‘ 
1 : 1 | OUTPUT PARAMETERS: 3: 3 
fio t 
1 6 1 | IMPLICIT OUTPUTS: : 5 
188 1 i sti i 3 
189 1 | ROUTINE VALUE: : 5 
190 1! NONE 33 
191 1! 33 
138 1 ! SIDE EFFECTS: $3 
og Ae : 
195 1 ie= : 3 

5196 1 g 
5197 BEGIN 33 
5198 MAP a9 
5199 NAME : REF VECTORC,BYTE), ! Pointer to ASCIC name string 33 
2 30 realy VERSION: REF BBLOCK; ! Pointer to version entry : ; 
: 4 SAVE_DIR_DESC, ' Recursive save for directory bith pengsr 35 
0 SAVE DIR_FID: BBLOCKCFIDSC_LENGTH), ! Recursive save area for directory file ID $2 
5204 STATOS, ' Status variable $3 
05 DIR_LENGTH, ' Length of directory | 
53 BUF __LENGTH ' Length of buffer for directory | 
07 BUF ADDRESS; i Address of buffer for directory i 3 
09 7 5 
2 19 Save recursive variables. : ; 
i SAVE_DIR_DESC = .DIR_DESCLO); : ; 

1 SAVE-DIR-FIDCFID$W_NOM) = .DIR_FIOCFIDSW_NUM); ; 
14 SAVE_DIR_FIDCFIDSW_SEQ) = .DIR_FIDLFIO$W_ SEQ); 2 | 
18 SAVE_DIR-FIDCFIDSWIRVN) = .DIR-FIDCFIDSW-RVNI; ; i 
1 3: 3 
H ' Update the etees tery descriptor, unless NAME is zero, which indicates MFD. | 
1 ! If this is not the top level, apeens a dot, and then append the directory a4 
9 } name, up to but not including the dot. : i 
; if .NAME NEQ 0 3: 3 
THEN | 
4 BEGIN 3 
5 LOCAL 3 3 
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P; 
IF .DIR_DESCCLO] NEQ 0 
THEN 

BEGIN 

DIRL.DIR pes¢COJ] = 4C',': 

DIR_DESCCO) = .DIR_pEScCOd + 1; 
END? 
= CHSFIND_CH(.NAMECO), NAMEL1], X%C'.'); 
F .P NEQ 0 
HEN 
DIR_DESCCO] = 
hat CHSMOVE(.P = NAMEC1], NAMEC1], DIRC.DIR_DESCCO]J) - .DIR_DESCL1); 


! Access the file. 


errr 


FID_RVN] = .DIR_FIDCFID$B_RVNI; 
“SEQ) = .FIB 
RVN = .FIB 
CCESS OR IOSM_ACCESS, 
HAN=. CHANNEL , oe 
0SB=10SB 
PS=HDR-ATR DE 
«STATUS THER S$ 
NOT . STATUS 
BEGIN 


! Report failure to access the directory, and set the error flag to 
abort lost file processing. 


DIRECTORY ERROR = TRUE; 
VERIFY$_OPENDIR, 
({F .DIR_DESCCO) EQL 0 THEN MFD_DESC ELSE DIR_DESC), 
STATUS): 


NUM); 
~$F a): 
RVNJ; 
BSB_ 
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C); 
: ATUS = .10SB8(0); 
HE 


END 
ELSE 
BEGIN 


: Ensure that the file is, in fact, a directory. At this point we know 
i only that the filename is .DIR;{". Use the file header that was 

! obtained during the accens. Compute the file length if valid. 

If invalid, leave the file length zero to avoid processing the file. 
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Allocate memory for buffer. 


STATUS = LIBSGET_VM(BUF_LENGTH, BUF_ADDRESS); 
IF NOT .STATUS TREN SIGNAL(VERIFY$_ALLOCMEM, 0, .STATUS); 


Loop to process all blocks. 
READ_VBN = 1; 
WHILE 1 DO 
BEGI 
LOCAL 
PROC_LENGTH; 
Compute transfer size. 


PROC_LENGTH = MINU(.BUF_LENGTH, (.DIR_LENGTH/512 = .READ_VBN + 1)*512); 


Read the blocks. 


STATUS = $Q10W( 
FUNC=10$_READVBLK, 
AN=, CHANNE 


10SB8=10SB, 
P1=,.BUF ADDRESS, 
Pe PROC LENGTH, 
P35=.READ 


VBN) ; 
.STATUS TREN STATUS = .10SBCO]; 
OT .STATUS 
SIGNAL ( 
VERIFY$_READDIR, 
(iF .DIR_DESCCO] EQL 0 THEN MFD_DESC ELSE DIR_DESC), 
. STATUS)? 


Deaccess the file. 


10W( 
FUNC=I10$_DEACCESS, 
CHAN=. CHANNEL) ; 
Scan directory, if there was no error in the read. 


if .STATUS 
THEN 
po 2 
) 


DDRESS) 


BEGIN 

(IF .STRUCTURE_LEV 
THEN SCAN_BIRE 
ELSE SCAN_DIRE 

(.PROC_LENGTH, .BU 
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VOe~000 la-Sep- 3b 9¢:35:99 VERIFY SREIVERINY BSo 0% 
; 5419 97 END 
3; 54 ; 3 g ELSE 
; 54 6 BEGIN 
; 54 4 9 6 DIRECTORY_ERROR = TRUE; 
; 54 4 EXITLOOP; 
3 : : : ¢ END; 
: 54 404 
3 : ? 608 Update to next chunk. 
: 5429 4 8 READ_VBN = .READ_VBN + .PROC LENGTH/ 512; 
; ee » 4 IF .READ_VBN GTRO .DIR_LENGTA/S12 THEN EXITLOOP; 
: e rf 
: if § a) Re-access the file for another trip. 
: 5435 21 CHSFILL(O, FIBSC_LENGTH, FIB); 
> 54 6 414 FIBCFIBSL_ACCTLJ~= FIBSM_NORECORD: 
: 54 415 FIBCFIBSW-FID_NUM) = .DIR_FIDOCFID$W_NUM]; 
; 5438 416 FIBCFIBSW_FID-SEQ) = .DIR-FIOCFID$wW-SEQ); 
; 5439 4) FIBCFIBSW-FID-RVN) = .DIR-FIOCFIDS$SW_RVNJ; 
; 5440 P 5418 STATUS = SQl00( 
: 5441 P 5419 FUNC=IO$_ACCESS OR IO$M_ACCESS, 
3 ry P 5420 CHAN=, CHANNEL 
3 0 P $421 10S8=10S8 
> 5464 4 é P1=FIB_DESC); 
> 5445 54 IF .STATUS"THEN STATUS = .10SBC0); 
3 2006 5424 IF NOT .STATUS 
: 544 5425 THEN 
; ret 26 § 6 BEGIN 
: 450 a 8 6 ! Report failure to access the directory, and set the error flag to 
3 o¢2) r 4 ° } abort lost file processing. 
; re 431 6 DIRECTORY_ERROR = TRUE; 
; 5454 4 é 6 SIGNAL ( 
; $32 ‘ ; 6 VERIFY$_OPENDIR, 
; 489 435 6 ({F .DIR_DESCCO] EQL 0 THEN MFD_DESC ELSE DIR_DESC), 
: 5458 4 $ 6 . STATUS)? 
: 5459 4 $ EXITLOOP; 
eG eo; 
i ut | 
; rie rr 2 Deallocate memory for working copy of directory. 
: 54 444 & STATUS = LIBSFREE_VM(BUF_LENGTH, BUF _ADDRESS); 
; 46? ri $ | ay «STATUS THEN STGNAL(VERIEYS FREEMER 0, .STATUS); 
: rh 447 3 ELSE 
Hite Bat 
: $f $29 ? Deaccess the file. 
: 5474 Pp 438 4 $010W( 
: 5475 P5453 4 FUNC=10$_DEACCESS, 
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Main module 


PUSHAB HDR_ATR_DESC : 
oe Oo cha (3p) : 
C1FA CF oF PUSHAB FIB_DESC : 
—E 7C CLRQ. =(SP) : 
AA i PUSHAB 1088 : : 
7E ; BF OA MOVZBL #114, =(SP) : 
00000000' EF bp PUSHL CHANNEL : 
000000006 00 ; F CALLS ni, SYS$Q10W ; 
a6 of RoW” RO, stATyS “i 
eega a sa Be 
00000000" EF ef ; MOVL #1, DIRECTORY_ERROR i} $8 
6 D PUSHL STATUS 3223 
AD TSTL DIR_DESC ; 
$9 1 BNEQ  6$ ; 
50 C19¢ cr 9 MOVAB NED _DESC, RO 
: 5 35 poUae RRLPESC. 0 : 
1 DD PUSHL #1 > 5269 
#VERIFY$_OPENDIR 3 
momen Fn Bes NITE ieee = 
a My CLRL pin abenern ; 5283 
02 00000000" FF +1 chs HDR_BUFFER+7, #2 ; 
51 06 INCL R1 ; 
# OSSB009: ff t Rh, dye. "BERRVERER 58g 18 BR 
33 . 4 19 7 ASHL #9, RO DIR_LENGTH : 
00000000' sf ist RECATTR+1 ; 52% 
01 00000000' : 1 CMPB = RECATTR, #1 ; 5303 
5S is BNEQ : 5304 
10 00000000" EF 8 CMPW RECATIR¢2, #16 
' 10 9¢ ROTL #16, RECATIRGB, RO ; 5307 
23 appt 4 9 3 ASHL = #9, RO DIR_LENGTH i cies 
00000000' Ff 8 TST se 
52 FEOO 9 BOVAB -512(R2), DIR_LENGTH ; 
‘ D TSTL DIR_LENGTH ; 5316 
1 BLSS 128 me 
‘ H BLBC M 15$ : 
24 1 ; 5 tame 
00000000' } 5 ROVE "1, DIRECTORY_ERROR ; $330 
7 hs an en ; 
door d BRB 4S ; 
A 9E ROVAB RprPese RO ; 
50 4 PUSHL & : $321 


Page 181 
“11 Blis “32 V 4.0-74 ( §} 
a IESSEECISRG ARSASHTD WOH OL dda rt | 
VERIFY Main module ‘aah 
- PUSHL #YERIFY$_B 
per ome AB tata am) | 
iF : 15$ |e 193 ; 5339 : 
°SB 50 OOIfA 168: ROM. DIR -LENGIH, RO ; 
00002000 &F 1 + Breau 178 ; : 
F ie 1 A elt + hg Ty : 5344 : 
on he tO Bt 8G 0188 178: PUSHL. «SP : : 
134 : 
Tn a rts ab. 
000000006 00 ; 4 ; OVL ea 
0D 6 DD OO1A PUSHL erary ; : 
F Be RA PUSHL VERIFY ALLOCMER ys ; 
000000006 BF DD 001A5 CALLS #3. LIBSSIGNA i 3339 
3 1 00 OOIAE 188: Novi wien Aa ec R8 ; ; 
58 32 00000200 §F 0169 198: Sues READ, YEN, RB, ; 
52 2 39} 0180 MOVAB — §13(R95.'R2 : : 
3 3 0200 C2 9E Otc! NOL BUF LENGTH, RO 
: OS Bt brea CMPL P ; ; 
se 03 18 oieD BLEGU 2 
28 26 00 oie 208: ov RO, PR PROC_LENGTH : 5370 
18 ; : 
7E Dé O0107 BUSH 5438) an ; : 
0084 8F 4 $1D PUSHL  BUF_ADORESS : ; 
14 AE bp OO1E CLRQ -(SB) ° 3 
7é be Rete PUSHAB 10SB : ; 
8 ft Bb dole PUSHL 49 : 
' DD OO1E PUSHL ay") : 
00000000" EF DD Oo1E? CLL CSP roy 
FB OOIEF ROVE’ ROS’ STATUS : $371 ; 
000000006 90 me 1F6 Rov, RY, STATS See ; 
A Ae gous older HR) |; 
6 £E TATU : ; 
” $6 i 3 218 rst JR_DESC ; 
f ROVAB AFD_DESC, RO : 
50 C068 CF (ME 00209 BRE 2 ; : 
50 8) Bb 0081s 388, POSAE ny ; 5374 3 
Y bb OOS PUSH SVERIFYS READDIR : 
DD 001 hte $SIGNA : 5385 
000000006 §F Db 021 CALLS #4, 18 
* ETE O58 ace: tha’ 2Aseh | 
FRE : 
7E 7¢ & CLRQ 
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Vo 000 5 ersee=haRs Pgisssey | YOMa Tv ebdes yee Yt O5509 "0 
7E 34 70 8 mMOVa #52, =(SP) ; 

00000000' i DD PUSHL CHANNEL : 

E D4 CLRL. = F 

000000006 00 g¢ FB ; CALLS aie us Q10w : 
0 24 AA b 3p CHPL STRUCTURE LEVEL, #2 : 

50 0000v cf H 43 MOVAB SCAN.DIRECT_2, RO : 

5 4 BRB 6$ ; 

50 O000v CF 9E O024A 258 MOVAB SCAN_DIRECT_1, RO : 

DD OO24F 26$ PUSHL BUF _ADDRESS : 

; DD 24 PUSHL PROC LENGTH : 

60 FB CALLS a TRO) : 

A 1 36 BRB 28$ : 

00000000" EF oh } 20 38 27$: NOV a, DIRECTORY_ERROR : 
- Paesoeel AE. Bt Beutel, #512, 2 ven ; 

f BY Googe = GAPE Bo Vans : 

0040 =8F 00 6E ese 00 2c a0 ti MOVCS #0, (SP), #0, #64, FIB : 
FESC ca oo200000 SF pp Steyn 7097152. £18 ; 
FE64 bf AA 2 0 Bh MOVW  DIRTFID+4, FIB+8 : 

7E 7C 00 9 CLRQ. = =( SP) : 

ep Biase RO 288 : 

C006 =o CF oF 0296 PUSHAB FIB_DESC : 

E 7C QO29A CLRQ. = (SB) : 

18 AA 9F 0029C PUSHAB 10SB : 

7E 72 BF 9A 0029F MOVZBL #114, =(SP) : 

00000000' EF DD 09 A3 USHL CHANNEL : 

E 04 002A9 CLRL. = (SP) ; 

000000006 90 ¢ FB i ‘ CALLS #1 + Syssal0M 
ee eS eS ee arene | 

- rere H op BF BkuY STATUS, de ; 

00000000" EF Q1 DO 00 ce 29$:  MOVL #1, DIRECTORY_ERROR : 
6 D 0 ¢ PUSHL STATUS ; 

Ga 93 Ooece = TTL Bu Desc 3 

50 BFAS CE OE cr MOVAB —AFD_DESC, RO 

2 4 35 HHS 0h: Solan Byresc, | 

1 DD 5 DB =-tié‘<i«éiSHKSCO : 

000000006 8F DD Dp PUSHL #VERIFY$_OPENDIR : 

6B 4 FB OO2E CALLS #4, LIBSSIGNAL : 

08 AE SF O09 PUSHAB BUF_LENGTH 

000000006 90 F E CALLS #3. LIBSF REE, vm : 
0 F OVL =O STATUS : 

E F BLBS STATUS, 34$ ; 

DD O02F PUSHL STATUS : 
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CODE + 3090 


Routine Base: 


815 bytes, 


:; Routine Size: 


Hf 
Main module 1b-se 
1 e 


w$ep=19be 18:27:19 — WWealryesnesveRiFY-03034 


re ROUTINE SCAN_DIRECT_1(LENGTH,ADDRESS)= 

491 '++ 

49 : 

49 ! FUNCTIONAL DESCRIPTION: 

rer This routine scans an ODS-1 directory. 

£38 INPUT PARAMETERS: 

49 LENGTH - Descriptor for memory into wh‘ch the directory 
re ADDRESS - has been read. 


IMPLICIT atte 
NON 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
rue, indicating success. There can be no directory format errors 
in an ODS-1 directory. 


SIDE EFFECTS: 
Directory scan completed. 


WOOO OonOe YANN 


OWONOA VE WN "OOO NAULS WOOO 


Sel del tek tek dete Dek de ee ee et eet et ae et ee a 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
rt BEGIN 
49 Loop over all directory entries. 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 


INCRA REC FROM .ADDRESS TO .ADDRESS + .LENGTH - NMBSC_DIRENTRY BY NMBSC_DIRENTRY DO 
REC: REF BBLOCK; ! Pointer to directory record 
Zero file number indicates an empty entry. If nonzero, process the entry. 


iF .RECCNMBSW_FID_NUM) NEQ 0 
THEN 


} Jemporery 
FILENAME ,BYTE), ' Buffer for converted filename 
VERSION]; ! Dummy ODS-2 version entry 


MTN 2 3 OOOOCOCOOCOO 


FILE_NAME: VECTORCFI2$S 
IRSC 


VERSION: BBLOCKLDIR$S 


SOG 


' Convert the ODS-1 format entry to suitable parameters for 

! PROCESS_FILE and PROCESS_SUBDIR == an ASCIC name string and 
an ODS-2-format version éntry. 

FILE_NAMECO) = MAKE _STRING( 
Pp = CHSE IND CHC FILE NAME 04 
IF .P NEQ 


REC, FILE NAMECI}); 
FELE_NAMECIJ, XC';"); 
j = .P7- FILE_NAMECI); 


LULU DV PUPPETS SVS PUDUSV DUDES SUSU 


Tw eel eal eae ah ah al eal tal sh Ab Ab Ab Ab Ah Ab Ab ah Ab ah Ah Abeba ab Ab Ab Ah Ab Ab Ab Ah Ab Ab Ah Ah dh ah al 


Ronofto — a | OOO 


Ss 
M—OOONO US Ww O00 


Po oy oy? or 
WFWN—O 


THEN FILE_NAME 


8 
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Vie-000 1 ~3007 138% 9g: 43:49 MERRY SRE vERIEY o5oe% . 3B 
3 ‘$ ; 4 VERSION(DIRSW_VERSION] = .REC weg eu VERSION 3 : 
; 5546 4 VERSIONLDIRSW_FID_NUM] = .RECLNMBSW_FID_NUM); 5 
5 rt 5 4 VERSIONLDIRSW_FID_SEQ) = .RECCNMBSW_FID-SEQJ; : 
2349 $ 4 VERSIONCDIRSW-FID-RVNJ = 1; ; 
3 4 ; 
; ; § 4 ! Process the entry. f PROCESS_FILE determines that "ne entry is ; 
g 0 4 ' valid, and it is ad ipesere recursively scan the directory. : 
; ¢ 1 ? Clear the directory bit so hat each directory is only done once. ; 
3 $ $ ? Hf ROCESS FILE (FILE WARE. VERSION) : 
; 23 2 5 2 dl JESTOLTSCCOLTVEC TORE .DIRRAPCO), -RECCNMBSW_FID_NUMJ-1]) : 
; i ? 4 PROCESS_SUBDIR(FILE_NAME, VERSION); ‘ 
3 $¢ : 9 END; 3 
; 556 40 3 
3; 5564 ae 3 
3 65 tg ' ALL done, return success. ; 
; 5566 554 ! 3 
; 5567 aeee TRUE 3 
: 5568 545 1 END; : 
000C 00000 SCAN_DIRECT_1: 3 
-WORD Save R2,R3 3: 5466 3 
5 1C ce 0000 SUBL #28, S$ 3 i 
50 08 A 04 aC C1 0000 ADDL LENGTH ADDRESS, RO : 5499 : 
5 FO 3=Ad 4 00008 MOVAB <-16(RO), 3 3 
52 08 AC 00 OO00F MOVL ADDRESS, REC g $ 
64 11 00 13 BRA 5$ : 3 
2 B 00015 1$ TSTwW (REC) ; 5507 $ 
D 13 00017 BEQL 4$ 3 3 
09 AE 9F 00019 PUSHAB FILE_NAME+1 : 5520 3 
52 0D OOOIC PUSHL REC 3 : 
00000000G_ EF 9 fe tt: CALLS #2, MAKE_STRING 3 3 
Ha 9 MOVB RO, FILE _NAM 3 3 
; 08 AE A 9 MOVZBL Pate NAM R ; 5521 : 
09 «AE 0 A Locc «#59, "RO, FILE_NAME+1 : ; 
¢ BNEQ 2$ 3 3 
D CLRL R1 3 3 
1 Be 2s TSTL Pp : 5522 3 
3 BEQL 3$ 3 3 
20 09 «OA 4 A aot FILE_NAME+1, RO ; 3 
08 AE 1 5 SUBB RO, PB, FILE _NAME 3 3 
bE 0€ A2 B 43 38 mMOvw 14¢REC), VERSION > 5523 : 
8 AE D 4 MOVL (REC), VERSION+2 F 4 : 
6 AE B 4B MOVW #1, VERSION+6 ; $ ; 
E pp 4f PUSHL SP s 5 : 
0c A fF 1 PUSHAB FILE_NAME 3 : 
FA64 F 4} 4 CALLS #2, PROCESS_FILE 3 : 
A E 9 BLBC RO, 4 ; 3 
51 00000000" FF 00 C MOVL §§ aDIRMAP, R1 : 5535 : 


VO4~000 nse tegen ieseage QG:39:48_ YABaHY Pde SuBbuP4 8338 Page oes 


50 if MOVZUL (REC), RO 

OA 61 é Bact RS, (R1), 4$ : 
£ BD USHL SP : 5537 

Oc AE OF PUSHAB FILE_NAME : 

FCSB OCF F CALL # PROCESS_SUBDIR : 
; C 8 4$ ADDL2 #16, Rec + 5499 

° Bes SreaU i : ; 
50 1 00 3 OVL #1, RO + 5545 

4 0008 T : 


; Routine Size: 130 bytes, Routine Base: CODE + 40BF 


verity Main module 
v04-000 


@® @® CO 
v0wv 


16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 Pa 7 
14-5 -138 9¢:35:99 VERIFY.SRC VERIYY o3004 oe 8 
ROUTINE SCAN_DIRECT_2(LENGTH,ADDRESS)= 
pe 
FUNCTIONAL DESCRIPTION: 
This routine scans an ODS-2 directory. 
INPUT PARAMETERS: 
LENGTH - Descriptor for memory into which the directory 
ADDRESS - has been read. 


IMPLICIT INPUTS: 
NONE 


= 
a 


VFWN OC OONOUS wry 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
True if the directory was successfully scanned, false if an error 
in its format is detected. 


SIDE EFFECTS: 
Directory scan completed. 


NAb Ab Ah Ab Ab Ab db Ab Ab db db dh Ab Ab hh hh A 


OO 000000000000 000000000000 JINN 
DISARM OOM ae 


5 

59 > 

59 

599 

600 

601 REC: REF BBLOCK, ! Pointer to directory record 
one NEXT_BLOCK; ! Pointer to next directory block 


aon 


Initialize for the first block. 


REC = .ADDRESS; 
NEXT_BLOCK = .REC + 512; 


AOAAAAO 
BIKAR 


FAN CO OODNAU EWN SO ODNAU EWN 0 ODNAUE WN OOO NAOUS WOOO 


PUP PVP DV PUPV SVL PVP PV SVPVPVPVSPTSTVSUSPVSPU SISSIES ISIS TSSOP SIS ISIS SISOS 
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ol) : Loop over all blocks. 

oi8 WHILE  .REC LSSA .ADDRESS + .LENGTH DO 
615 IF .RECCDIRSW_SIZE) EQL 65535 

O16 THEN 

2 BEGIN 

ei 5 End of this block. Advance to next and resume. 
621 $ REC = .NEXT_BLOCK; 

6 § 4 NEXT_BLOCK = .REC + 512; 

6 END 

624 S 

625 a} BEGIN 

626 2 LOCAL 
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8 
IFY Main module bse -1984 02:15: AX-11 Bliss-32 V4.0-74 Page 
-000 : ~300n 138 96:35:99 VERIFY SReaVERIYY O30r4 . 38 
NEXT_RECORD, ! Pointer to next record 
VER: REF BBLOCK; ! Pointer to version entry 
! Point to where next record should start. Make some validity tests 
on the entry we are looking at. 


NEXT_RECORD = ,RECCDIRSW_SIZE] + .REC + 2; 


627 3.4 3 
6 8 4 4 4 : 
6 605 4 ; 
31 cor 
6 6 4 3 
a ! 
eS sci 2 
6 61 IF 3 
6 3 614 NEXT_RECORD GEQA .NEXT_BLOCK OR ! Entry within block? : 
6 615 REC ED IRGW 5126) OR ' Length even? 3 
640 218 -RECLDIRSW_SIZEJ LSSU DIRSC_LENGTH + DIRSC_VERSION ! Long enough? ; 
641 61 THEN 3 
ec§ 19 ise 
644 620 6 BEGIN $ 
645 36 1 6 VER (.REC + pines LENGTH + .RECCDIRSB_NAMECOUNT] + 1) AND NOT 1; : 
646 6 ; 6 -RECCDIRSV_TYPE] NEG DIRSC_FID OR ! Proper type code? 3 
647 56 6 .VER GEQA NEXT_BLOCK = DIRSC_VERSION ! Version entry within block? 3 
648 624 g END 3 
649 625 END 3 
650 626 4 THEN 3 
BB ‘ee : 
638 28 > Directory format error. Report it and quit. : 
639 36 1 DIRECTORY ERROR = TRUE; : 
657 56 5 VERIFY$_BADDIR, : 
659 3 5 (iF -DIR_DESCCO] EQL C THEN MFD_DESC ELSE DIR_DESC)); 3 
660 2636 RETURN FALSE; ; 
$63 e364 vrs 
$08 28 9 4 3 
ree ok 2 Loop over all version entries. : 
666 2648 4 WHILE .VER LSSA .NEXT_RECORD DO ; 
$68 te LOCAL 
669 5645 FILE_NUMBER, ! File number of entry 3 
$70 ot8 RVN; ! RVN of entry : 
ors o63 : 
th rch Get a clean file number and RVN. : 
675 651 FILE_NUMBER = .VERCDIRSW_FID_NUM); : 
676 63¢ FILE~NUMBER<16.8> = .VERTDIRSB_F1O_NMX); ; 
67 65 RVN = VERCDIREB FID RVN; ; 
ore $28 IF .RVN EQL THEN RON = .DIR_FIDCFID$B_RVN); : 
6 6 : 
ra $38 : preqess the entry. If PROCESS_FILE Getoraines that the entry is : 
ret) $28 ! valid, and it is ad rectory recursively scan the directory. : 
68 65 ' Clear the directory bit so hat each directory is only done once. : 
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v04-000 
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oO 
VI SOBNAME WM ODS we 
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FUN $$ O OONAUE WP ODNOAUE AN OOONO 
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IF PROCESS_FILE(RECCOIRSB_NAMECOUNTI, VERCOIRSW_VERSION)) 
Fee eae UEC TENS DERE BUTS, «FILE NUMBER=1]) 


BEGIN 
F 


RECCDIRST NAME], 
EQL 0 OR 


L¢ 
ERIFYS_DIRNAME, 
({F .DIR_DESCCLO) EQL 0 THEN MFD_DESC ELSE DIR_DESC), 
RECCOIRSB_NAMECOUNTIJ, 

.VERCDIRS@_VERSION)); 

PROCESS_ SUBDIR (RECTDIRSB_NAME COUNT], VERCDIRSW_VERSION)); 


Advance to next version entry. 
VER = .VER + DIRSC_VERSION; 
END; 
Advance to next directory record. 
REC = .NEXT_RECORD; 
END; 
END; 


ALL done, return success. 


TRUE 
END; 
52 49 44 2€ 04141 P.ABR: .ASCII \.DIR\ 
OFFC 00000 SCAN_DIRECT 2: 
«WORD Save R2,R3,R4 
B 000000006 00 3E 99002 MOVAB LIBSSIGNAL, Rf 
A BE CF 9€ MOVAB FD DESC, R10 
9 00000000" EF 3 MOVAB DIR-DESC, R9 
4 AC p MOVL ADDRESS, REC 
5 02 C4 ‘ 1 MOVAB 512(R4). NEXT_BLOCK 
58 08 A 4 ac C 1 ADDL3 LENGTH, ADDRESS, R8& 
5 34 1 1$: CMPL REC. rb 
3 BLSSU ¢ 
00E7 31 9 BRW 6$ 
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nN 8 
VERIFY Main module 16-Sep-1984 :15: AX-11 Bliss-32 V4.0-74 Page 190 
- -Sep- 127: VERIFY. SRCJVERIFY.B32; (25) 
VOe 00 1ergeb71382 99:53:49 | HE 5 358 9° 38 
0 4 3 C 28: MOVZWL (REC), R : 5591 ; 
FrFE BF 3 iH ‘ Chey RO. 185835 ’ : 
4 5 MOVL NEXT_BLOCK, REC : 5597 ; 
ae 0200 ch oe MOVAB hen NEXT_BLOCK ; 3298 : 
57 02 mag at 40 3$ MOVAB 2(REC)CROJ, NEXT_RECORD : 3610 ; 
5 D 4 CMPL NEXT RECORD, NEXT_BLOCK : 5614 ; 
4 1 4 BGEQU 4 : ; 
21 0 E 4A BLBS RO, 4$ + 5615 ; 
: ic FF 0008 sissy as _— 
50 0s AG OA 8 iH MOVZBL 3 (REC) 9 + 5621 ; 
20 7 A044 YE 0005 MOV (R dEREC RO : ; 
56 0 01 CB 00058 BICL3 #1, RO, vER : ; 
07 04 Ad 93 0005F BITB 4(REC). # + 5622 ; 
09 1 0063 BNEQ 4$ : ; 
50 F8 AS GE 0006 MOVAB =8(RS), RO + 5623 : 
, qi aimee arty yt : : 
00000000" EF 01 vO OO6E 4$ OVL #1, DIRECTORY_ERROR + 5631 : 
69 D3 00 TSTL DIR_DESC : 5635 ; 
05 12 00077 BNEQ ©=«55$ : ; 
50 6A 9E 00079 MOVAB MFD_DESC, RO ; ; 
03 11 0007C BRB : ; 
50 69 9E OOO7E 5$: MOVAB DIR_DESC, RO : ; 
50 DD 00081 6$: PUSHL R : ; 
01 DD 00083 PUSHL #1 t 5632 ; 
000000006 8F DD 00085 PUSHL AVERIFYS BADDIR : : 
68 93 FB 00088 CALLS #3, LIBSSIGNAL 3 : 
a Ket 4) 
57 56 D1 90091 7$: CPL VER. NEXT_RECORD + $642 ; 
52 02 Ab 3¢ $0096 MOVZWL 2(VER), FILE_NUMBER + 5651 3 
52 08 10 07 Abd FO OO09A INSV (VER), #16, #8, FILE_NUMBER : 565 : 
53 06 A6 9A OOOAD MOVZBL 6(VER), RVN : 565 3 
04 12 OOOA4 NEQ $ : 5654 ; 
53 0c Ad 9A OO00A6 MOVZBL DIR_FID+4, RVN ; : 
56 DD OOOAA 8$ PUSHL VER : 5661 : 
05 A& 9F OOOAC PUSHAB 5(REC) : : 
fans. a a i : : 
500084 D9 DE 00087 MOVAL “pte, RO ; 5663 : 
44 FC 80 Q 5 000BF BBCC —OséR a4 (RO), 14$ : : 
0 05 As 9A 00004 MOVZBL 5S(REC), R > 5668 : 
06 AG 50 4139 CA 4 ¢ MATCHC #4, P.ABR, RO, 6(REC) : 5669 ; 
3 1 0 EQL $ : ; 
53 40 D MOVL #4, R : : 
+f D5 9$: SUBL2 #4. R ; : 
9 D Bea. 108 ; : 
01 66 DA CHP VER), a ; 5670 ; 
7E As DF 10$:  CVTWL (VER), -(SP) + 5677 ; 
05 «AG OOF z PUSHAB 5(RECS : 567 ; 
69 D5 O00E TSTL DIR_DESC : 567 : 


Routine Base: 


3; Routine Size: 
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CODE + 4145 


Liss=32 v4.0=74 
SRESVERIFY 83011 


BNEQ 11$ 

MOVAB Meg -PESC. RO 
BR 12 

MOVAB j R_DESC, RO 


PUSHL AVERIFYS DIRNAME 
# BSSIGNAL 


yTREC) 
CALL #2, PROCESS_SUBDIR 
ADDL #3, VER 
BRB ? 
MOVL sabe caminanaen REC 
BRW 
MOVL #1, RO 
RET 
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VERIFY Main module ibese -1984 215: AX-11 Bliss-32 V4.0-74 P 9 
v04-000 1o~$00- 138% 9g: 33:49 VERIFY SREIVERIYY 3504 age 135 
q $ $9 ROUTINE DIR_SCAN(RVN): NOVALUE= 
+58 o> 4 i** 
7 § 7 i FUNCTIONAL DESCRIPTION: 
4 2 f } This routine scans all directories on a volume. 
1 8 i INPUT PARAMETERS: 
§ 10 RVN - Relative volume number. 
4 v4 i IMPLICIT INPUTS: 
5 fi NONE 
71 i OUTPUT PARAMETERS: 
: 4 NONE 
40 71 i IMPLICIT OUTPUIS: 
41 71 i NONE 
4g 71 ' 
4 71 ' ROUTINE VALUE: 
4 NONE 
? i SIDE EFFECTS: 
f } Directory scan completed. 
i 


mrorororofrororys 


c 
o 


Initialize descriptor for current directory string. 


DIR_DESCEO) = 0; 
DIR“DESCL12] = DIR; 
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Initialize current directory ID. 


BPE FAWN NIAAA fon 


NOUS WN 0 OONAUE WN (OOO NOU EWN O DONAOUES I OOONOU FW O00 


SONNE NNN 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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1 
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1 
1 
1 
1 
LOCAL 
VERSION: BBLOCKCDIRSC_VERSION]; ! Dummy version entry 
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64 IR_FIDCFIDSW_NUM] = FIDSC_MFD; 
IR-FIDCFID$W-SEQ) = FIDSC~MFD: 

766 IRFIDCFIDSWIRVN] = .RVN; 

He 

g , : Initialize dummy version entry pointing to MFD. 

771 74 VERSIONCDIRSW_VERSION]) = 1; 

77 74 VERSIONCDIRSW-FID_NUM) = FIDSC_MFD; 

77 74 VERSIONLDIRSW_FID_SEQ) = FIDSC_MFD; 

774 74 VERSIONCDIRSW-FID-RVNJ = .RVN; 

775 7 ? 

77 7 

of § Process the MFD. 

77 754 PROCESS_SUBDIR(O, VERSION); 

780 755 END; 


VERIFY Main module 
VOe-000 : 
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; Routine Size: 58 bytes, 


d 9 
16-Se 
14-Se 


0004 00000 DIR_SCAN: 


-WOR 
¢e 00000000" ft 9 g Aovas 
E 4 cs SUBL 
ne FeCO ES SE On0E ROVAB 
te 000406 4 af 06 vf MOVL 
A 4 ac B 1 MOVW 

00040°)1 of ) i PUSHL 
AE 4 89 MOV 
at 04 ac B OVW 
$e DD p PUSHL 
CF 05 Pe 4 CALLS 
04 00039 ET 
CODE + 425C 


Routine Base: 


pal9be 18:27:48 


AX-11 Bliss-32 Sh et Oe 
VERIFY. SRCJVERIFY.B32; 


=(SP) 
#2, PROCESS_SUBDIR 
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R 16-5e -1984 02:15: AX-11 Bliss-32 V4.0-74 P 94 
Vbe-000 VerSeen TSBs Pgi58:Gy | HARA eb ses 2a He 85569 age 33) 
: i ¢ f } ROUTINE FAO(CTRL,PARAM): NOVALUE= 
: 5784 758 1 t44 
; 5785 7 1! 
3; 57 76 1 ! FUNCTIONAL DESCRIPTION: 
; 7 £9) i } This routine interfaces to FAO to format information into the Line. 
: - 9 ree 1 i INPUT PARAMETERS: 
3 37 764 1! CTRL = ASCIC control string 
: ied oe? : PARAM... - Parameters required by the control string (if any) 
: £3 rey 1 | IMPLICIT INPUTS: 
: re f 3 : LIST_DESC - Describes the remainder of the output Line. 
; £96 776 OUTPUT PARAMETERS: 
: 5798 128 1! 
; 5799 77 1 ! IMPLICIT OUTPUTS: 
; 5800 774: «1:5! LIST_DES - Updated. 
; st ote : Information formatted into the Line buffer. 
i Sep BER] | routing wave: 
: 5805 779 13 
: 3 781 : SIDE os 
: 5808 7 é 1! 
; 5809 7 1 !-- 
3 ogi? 784 «#1 
: 5811 785 BEGIN 
; obls 7 § MAP 
: 384 HA 4 eee CTRL: REF VECTORC BYTE); ! ASCIC control string 
: 5815 5789 OUTLEN: WORD ' Length returned by $FAOL 
: Hf 3f39 DESC: VECTORC2); ; Descriptor for control string 
: 5818 79 
: 4 a 1 Make a descriptor for the control string. 
> 5821 795 DESctO) = .CTRLCO]; 
; § a4 DESCL1J = CTRLC1I; 
> 5824 798 
: 5 443 Use SFAOL to do the editing. 
; ; 801 SFAOL(CTRSTR=DESC, OUTLEN=OUTLEN, OUTBUF=LIST_DESC, PRMLST=PARAM); 
: 5829 0 
: Re Update the Listing buffer descriptor. 
: : LIST _DESCEO} = -LIST_DESCEO} - .OUTLEN; 
‘ i bas reo = .LIST_DESC + ,OUTLEN; 
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; Routine Size: 55 bytes, Routine Base: 
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AX=11 Bliss-32 V4.0-74 
VERIFYSREVERIFY B3oe% 
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NAME WN 32 OOD NO UE WIN 0 ODNOU EWR OO OONOUES WN "OVO ONOUS 


000000000000 00 
MAAN 


FE7E 


PR OPROPOPONOPOPOPOPOPPI WNP = es 
— 


ROUTINE EOL: NOVALUE= 
ioe 


i FUNCTIONAL DESCRIPTION: 
This routine writes the Listing buffer to the Listing file. 


INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

LIST_DESC - Describes the remainder of the Listing Line. 
! OUTPUT PARAMETERS: 

NONE 

IMPLICIT OUTPUTS: 

LIST_DESC - Reinitialized to describe the entire Line. 
ROUTINE VALUE: 

NONE 


SIDE EFFECTS: 
The Listing is produced. 


BEGIN 
Compute Line Length. 
LIST_RABCRAB$W_RSZ] = LIST_SIZE - .LIST_DESCCO); 


Do the write. If failure, report it. 
if NOT $PUT(RAB=LIST_RAB) 


FILE_ERROR( 
VERIFYS FACILITY*16 + SHRS_WRITEERR + STSSK_SEVERE, 
-LIST_RABCRABSL_STSJ, .LIST_RABCRABSL_STV]); 


Reinitialize descriptor. 
List pEsctO] = LIST_SIZE; 
LISTIDESCE1) = LIST BUFFER; 
END; 
0004 00000 EOL: -WORD Save R2 : 5809 
52 00000000' EF Hi 0 MOVAB LIST_DESC, R2 : 
C2 0084 &F 2 a3 000 SUBW3 LISTIDESC, #132, LIST_RAB+34 > 5840 


H 9 
ct io atta a CaN 
000000006 00 fetes of re 13 CALLS ae VSSPUT ; 
mae PR Bih, flirt, sn : 
ales 00000000 i Dd 90028 PUSHL BESTE Eagpac tL TVaTO>e4300>00 ; 
ou 3% b8 AD ee 3H MOVABL ris2. *atER fe st _pEsc+s ; 
& 0003¢ RET : 


; Routine Size: 61 bytes, Routine Base: CODE + 42CD 


7 ws ARTO AGAR WARIS IS Pest 


v04-000 -Sep-1984 VERI (29) 
; § 28 ! ROUTINE ENTER_WORK(TYPE,P1,P2): NOVALUE= 

; 8 60 1 t+ 

H 61 1! 

; 3890 86 1 ! FUNCTIONAL DESCRIPTION: 

; 5891 6s 1! This routine makes an entry in the work List that is executed after 
; 4 rf: : the volume is unlocked. 

> 5894 508 1 ! INPUT PARAMETERS: 

; 5895 of 1! TYPE - Type of repair. 

5 38 68 1! P1 - Type-specific parameters. 

; 589 4 1! P2 - 

; 5898 01! 

; 5899 71 #1! IMPLICIT INPUTS: 

; 5900 4G 1! WORK_LIST - List header for work items. 

; 5901 5875 1! 

; a08 aere 1 ! OUTPUT PARAMETERS: 

; 590 875 1! NONE 

; 5904 ee78 1! 

3 eepe 5877 1 ! IMPLICIT OUTPUTS: 

3 208 5878 1! WORK_LIST - List header for work items updated. 
: 590 5879 1! 

; 5908 5880 1 ! ROUTINE VALUE: 

: 5909 one 1! NONE 

; 5910 oag 1! 

: ae 5883 1 ! SIDE EFFECTS: 

3 at 5884 1! NONE 

; 591 5885 1! 

3; 5914 ey 1 !<- 

3; 5915 2 87 1 

; 5916 888 BEGIN 

3; 5917 5889 MAP 

3; 5918 5890 Pi: REF BBLOCK, ! Type-specific parameters 
; 5919 5891 P2: REF BBLOCK; ! 

3 205s 2838 LOCAL 

3; 5921 89 : REF BBLOCK, ' Pointer to work List entry 
: 59 § 5894 STATUS; ' Status variable 

3 39 2832 BIND 

; 5924 47 SIZES = UPLIT BYTE ( ! Table of entry sizes 
3 23 5 589 WRK_S_ENTER 

: 59 6 5898 WRK~S~REMOVE, 

; 29 2899 WRK-S~ADDQUO 

; 5928 900 WRK S-DELETES 

: 5929 2301 VECTORC BYTE) 

: 3934 : 

3 § $04 Allocate a new block. 

3; 59 STATUS = LIBSGET _VM(ZREF(.SIZESC.TYPE]), P); 

; 5 IF NOT .STATUS TREN SIGNAL (VERIFY$_ALLOCMEM, 0, .STATUS); 

: 59 $09 

; 59 91 ! Link the block to the work List. Offset 0 points to the first entry and 
; +44 at} offset 1 points to the most recent entry. 

3; 5941 318 IF .WORK_LISTCO) Fo. 0 

3; 5942 914 THEN WORK_LISTCOJ = .P 


9 
vO4-000 sro 1ESep-4984 OG:D9:#9  YABGHL,OUdescdZ, v4.9 Pane (39) 


> 5943 15 ELSE BBLOCKC.WORK_LISTC1], WRK_LINK] = .P; : 
: Ste 1 woRK Liste = .P; 7 . : 
; 5945 1 $ 
3 ar8 1 3 
; 594 91 ' Initialize the remainder. : 
; 5948 9 \ : 
: 5949 921 PCWRK_LINK] = 0; ; 
; 920 9 ; PCWRK-TYPE) = . TYPE; ; 
; 5951 9 CASE [TYPE FROM WRK_K_ENTER TO WRK_K_DELETE OF : 
Be Be ge : 
: 5954 9 CWRK_K_ENTER, WRK_K_DELETE): ; 
; 5955 9 $ BEGIN citer, 3 
; 336 928 BBLOCK(PCWRK_FID], FIDS$W_NUM] = .P1CFID$W_NUM); : 
: 595 929 BBLOCKCPCWRK-FIDJ, FID$W-SEQ] = .PICFID$W7SEQ]; : 
: 5958 930 BBLOCKCPCWRK-FIDJ, FIDSWIRVN] = .PICFIDSW-RVNI: : 
: 5959 931 END; : 
; 536 3 § CWRK_K_REMOVE) } 
3 206 934 BEGIN 3 
: 596 5935 BBLOCKCPCWRK_DIDJ, FIDS$W_NUM] = .P2CFID$W_NUM); ; 
; 5964 3936 BBLOCKCPCWRK-DIDJ, FID$W-SEQ] = .POCFID$W-SEQ]; F 
3 soee 59 BBLOCKLPCWRK_DIDJ, FIDS$W-RVN) = .P2CFIDSW_RVNJ; ; 
; 5966 5938 BBLOCKCPCWRK-FIDJ, FIDS$WINUM] = .PICFIDS$W"NUMJ: : 
: 5967 5939 BBLOCKCPCWRK-FIDJ, FIDSW-SEQ] = .PICFIDSW~SEQ]; : 
; 5968 940 BBLOCKCPCWRK-FIDJ, FIDSWIRVN] = .PICFIDSWIRVNI: ; 
: 5969 941 ND; ; 
: apy 4 3 
: 5971 94 CWRK_K_ADDQUO): ; 
; 23f6 944 BEGIN 3 
; 597 945 PCWRK_UIC] = .P1; : 
; 597% 346 PCWRK-USAGE] = .P2; : 
; 5975 594 END; r 
: 3976 3948 3 
3; 597 949 TES; g 
: 5978 5950 1 END: : 
OC 10 12 OC O430A P.ABS: .BYTE 12, 18, 16, 12 : : 

SIZES= P.ABS : 

001C 00000 ENTER_WORK: : 

«WORD Save R2,R3,R4 : 5858 : 

54 00000000' Fe 9 00 2 HOVAB WORK LIST, R4 : ; 

5E 8 SUBL2 #8, SP ; : 

AE OF C PUSHAB P : 5906 3 

50 A AF 9€ MOVAB SIZES RO : ; 

04 AE 4 BC40 9A 0001 MOVZBL aTYPECROJ, 4(SP) : : 

000000006 00 * 05 b o001 CALLS” #2> LIBSGET_VM 

11 EB BLBS STATUS, § s : 5907 : 

DD PUSHL STATUS ; : 

E D4 CLRL. = = (SP) ; : 

000000006 8F DD A PUSHL #VERIFY$_ALLOCMEM : : 
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151 bytes, Routine Base: CODE + 430E 


: Routine Size: 


ROUTINE PROCESS_WORK: NOVALUE= 


144 
' 


FUNCTIONAL DESCRIPTION: 
This routine processes the work List to execute delayed repairs. 


INPUT PARAMETERS: 
NONE 


WOOOOOOOOOO 


AO 


—OOONOUS Win 


IMPLICIT INPUTS: 
WORK_LIST - List header for work items. 


23s OOO0O000 
@ VIFWN—O 
PULVSVSVSVSVSVSVSVSVOSVSISTST 


9 
04-000 ph aes IESepc1986 9R:3HE99  YASG}Y O4LeHGBRL¥S- ase ; v 


OUTPUT PARAMETERS: 
$e NONE 


iF READ_HEADER(PCWRK_FID], BUFFER_2) 
BEGIN 


w 


oooo 


H 1 

3 1 

3 1 

3 1 

3 1 

: 1 

3 1 

H 1 

3 1 

: 1 

3 1 

: 1 

3 1 

3 1 

3 ! 

; 5996 967 1°! IMPLICIT OUTPUTS: 

; 5997 5968 1 NONE 

; 5998 5969 1 

3; 5999 5970 1 ! ROUTINE VALUE: 

; 6000 5971 1 NONE 

; 6001 23°6 1 

; 600 597 1 SIDE EFFECTS: 

; 600 ante 1 NONE 

; 6004 975 1 

3; 6005 2378 1 I= 

3 one 977 1 

; 600 5978 BEGIN 

3; 6008 5979 LOCAL 

3; 6009 5980 STATUS, ' Status variable 
; 6010 5981 P: REF BBLOCK; ! Pointer to work List entry 
; 6011 2386 LABEL 

; 601 98 ENTER_LOST; 

; 601 ogee 

3; 6014 3 5 

3; 6015 238 P = ,WORK_LIST(O); 

3 Gore 5088 WHILE = ee 0 DO 

; 6018 989 CASE .PCWRK_TYPE] FROM WRK_K_ENTER TO WRK_K_DELETE OF 
3; 6019 5990 SET 

3; 6020 5991 

; 6021 oe 

; 60 é 99 CWRK_K_ENTER]: 

3 $8 994 ENTER_LOST: 

; 4 995 4 BEGIN 

3; 6025 44 4 LOCAL i 

3; 6026 997 4 IDENT_AREA: REF Bel ore ' Pointer to ident area 
: 6027 2038 4 FILENAME : VECTOR FI2$S_FILENAME + FI2$S_FILENAMEXT + 1, BYTE], 
; 6028 999 4 ' Buffer for Tile name 
3 $8 9 ? : ? FNA_DESC: VECTORC2); ! Descriptor for file name 
3; 6031 6 ¢ 4 

; 60 § ° ? ? 1 Reread the file header to get a file name. 
3 © ? 5 ? 

3 8 6 5 
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f this is the first pass through, locate the lost file 
irectory, creating it if necessary. 


oO 

polo lotro) 
OO 
Ooo 


6 ; : 
6 ! 3 
6 11 i : 
Oe IF .LOST_DIR_FIDCFIDSW_NUM] EQL 0 : 
601 THEN ; 
6013 3 Bon” 
6 16 a ATR_UIC: BBLOCK(4], : 
6017 6 ATR-FPRO: BBLOCK(2], ; 
6018 6 ATR-UCHAR: BBLOCK ; 
6019 6 BINDATRERECATTR: = BBLOCK FATSC_LENGTH); : 
6021 6 ATR_DESC = UPLIT( ; 
60 : 6 WORD(4, ATRS$C_UIC), LONG(ATR_UIC) 3 
6023 6 WORD (2, ATRSC-FPROS, LONG(ATR_FPRO) ; 
6024 6 WORD(4. ATRSC~UCHARS LONG CATR UCHAR) , : 
6025 6 WORD(FATSC_LENGTH, ATRSC_RECATTR), LONG(ATR_RECATTR), : 
6026 6 LONG(0)); ; 
$058 6 
534 6 ' Access the MFD on RVN 1 to get attributes. The lost file 3 
ets 2 directory will be created with the same attributes. : 
6032 é CHSFILL(O, FIBSC_LENGTH, FIB); ; 
6033 6 FIBCFIBSW_FIG_NUR) = FIOSC_MFO; ; 
6034 6 FIBCFIBSWFID-SEQ) = FIDSC-MFD; ; 
60535 6 FIBCFIBSW-FID“RVN) = 1; ; 
60 § 6 STATUS = SQ100( 3 
6037 6 FUNC=10$_ACCESS, : 
6038 6 CHAN=. CHANNEL, 3 
6039 6 10SB=10SB ; 
6040 6 P1=FIB_DESC : 
6041 6 PS=ATR-DESCS; ; 
6042 6 IF .STATUS-THEN STATUS = .10SBCO); : 
6043 6 IF NOT .STATUS : 
6044 8 THEN 3 
6045 BEGIN : 
6046 7 SIGNAL (VERIFY$_CREATELOST, 0, .STATUS); ; 
one : LEAVE ENTER_LOST; ; 
5 | : 
$03! ° Adjust EFBLK and HIBLK. : 
sos § ATR RECATIREEATSL EFBLAY = 8: ; 
$036 6 IF TSTRUCTURE_LEVEL EQL 2 THEN ATR_RECATTRCFATSL_EFBLK] = 2 * 16; 3 
57 6 ; 
i ° Access the directory file, creating it if necessary. : 
6060 6 CHSFILL(O, FIBSC_LENGTH, FIB); ; 
6061 & FIBCFIBSL_ACCTLJ = FIBSM_WRITE OR FIBSM_NOWRITE; ; 
6 : 6 FIBCFIBSW-DID_NUM) = FIDSC_MFD; : 
6063 6 FIBCFIBSW-DID-SEQ) = FIDSC"MFD; : 
6064 6 FIBCFIBSW-DID“RVN) = 1; : 
| 


| 
| 
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vIC 
R_FPRO 
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» STATUS); 
2 
R 
2 


32 

<PSECT CODE,NOWRT,2 
At 
AT 


1 
4 
3 
4 


«PSECT DATA,NOEXE,2 
3 
& 
2 
4 


ADDRESS 
WORD 


BLKB 
ADDRESS 


oops ATR_UCHAR: 
BLKB 
08B3C ATR_ 


RECATTIR: 
.BLKB 


WORD 


10 1984 
p=1984 
B 
I 
I 
UIC: .BLKB 
_FPRO: 


14-Sep- 
WR 
WR 
wR 


1 
- 10880); 
y 
088 
08830 ATR_ 
08B34 ATR 


B 
K 
K 
K 
OR IOSM_DELETE, 


STATUS 


$c); 


I 
D 
D 
D 
0 
A 
B 
E 


THEN 
HEADER_ERROR(VERIFYS_DELETE, PCWRK_FIDJ, 0, 


ke LL . 


' Delete file. 
L 
8 
B 
8 
A 
S 
= 
A 


“i areata 
ku 


END; 
CWRK_K_DELETE): 

BEGIN 

Hy 

] 

I 

I 

T 

F 

F 

H 
END; 


TES; 
' Advance to next work List entry. 
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Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 
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.ADDRESS ATR_UCHAR 
“WORD 
ADDRESS ATR_RECATTR 
-LONG 0 
P.ABU: .WORD 1 
“WORD 0255) 
ATR_DESC= P.ABT 
PROCESS_WORK: 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
MOVAB 10SB, Rf 
MOVAB -96(§P), SP 
MOVL WORK_LIST, P 
1$ BNEG 2 
RET 
$: CASEB 4(P), #0, #3 
$: <WORD 4$-3$,- 
18$-3$,- 
g1$- $.- 
5$-3$ 
4$: PUSHAB BUFFER 2 
MOVAB 6(P), R10 
PUSHL R10 
CALLS #2, READ_HEADER 
BLBS RO 5$ 
BRW 28$ 
5$: TSTW LOST_DIR_FID 
BEQL 6s 46$ 
BRW les 
6$: MOVCS #0, (SP), #0, #64, FIB 
MOVL #262148, FIB+4 
MOVW «#1, FIB+8 
CLRL =_- = §P) 
PUSHAB ATR_DESC 
CLRQ = = (SP) 
CLRL = = (SP) 
PUSHAB FI1B_DESC 
CLRQ = = (SP) 
PUSHL R11 
PUSHL #50 
PUSHL CHANNEL 
CLRL. = (SP) 
CALLS #12, SYS$Q10W 
VL TATUS 
LBC ATus, 9$ 
MOVZWL 10sB. STATUS 
LBC STATUS, 9$ 
cLRO ATR TRECATTRGG 
CMPL STRUCTURE. LEVEL, #2 
BNEQ 
INCL R6 
MOVL. #131072, ATR -RECATTR«B 
7$ MOVCS #0, (SPS, #07 #64, 
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4 02:15: AX-11 Bliss-32 V4.0-74 Pa 
383 96:35:99 VERIFY. SRCJVERIF Baoe 9° $0) 
1 ppaemecageos #2 3 6128 
f 5. (IDENT_AREA), #32, #87, FILENAME + 6132 
BUFFER_2+1, RO + 6136 
R6, R : 
#2, R s 
R ‘ #120 + 6137 
a , 54(IDENT_AREA), FILENAME+20 + 614 
# , #87, FILENAME 3 614 
R1 : 
FALENAME RO + 6146 
RO, R1, FNA_DESC ; 
16$ ; 6128 
FILENAME + 6150 
-6(IDENT_AREA) + 6151 
#2, MAKE~STRING : 
RO, FNA DESC ; 
FILENAME, FNA_DESC+4 > 6154 
#0, (SP). #0,-#64, FIB > 6159 
(R10), FIB+4 + 6160 
4(R105, FIB+8 ; 616¢ 
LOST_DIR_FID, F1B+10 > 616 
LOST-DIR FID+4, FIB+14 + 6165 
#512- F18+20 > 6166 
-(SP5 : 6172 
-(SP) ; 
FNA_DESC : 
FIB-DESC : 
= (SP) 3 
R11 ; 
#51 j 
CHANNEL ; 
-(SP) ; 
e + S¥$saze : 
STATUS 3s : 6173 
10SB, STATUS ; 
TATUS, 19$ : 6174 
ATUS : 6176 
= (SP) ; 
RI : 
* ERIFYS_ENTERLOST ; 
2 3 
#0, (SP), #0, #64, FIB > 6186 
6(P), R > 6187 
aa ; 
(R2), FIB+6 > 618 
Lae tla tee 
4(ROS, FIB+14 : 619 
#2048. F1B+20 : $138 
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FIB_DESC 
=(SP) 


#3 
#309, =(SP) 
CHANNEL 


-(SP) 


R2 
AVERIFY$_DELETE 
ree HEADER _ERROR 


10 
VERIFY, “Main module Wb-Sep-1984 09:15:20 yaxe11 al iesc32 v4 
ROUTINE DO_REPAIR(P_PROMPT) = 


'44 
! 
' FUNCTIONAL DESCRIPTION: 
This routine evaluates the qualifiers that specify whether a repair 
should be executed. 


INPUT PARAMETERS: 
P_PROMPT 


AAPA ASO 


ODOOOOODODWOOOOWOOWONNNNNNNNNS 


NAMEN (OOO NAUE WN O OONA EWR OO ONOUS WO 


- Prompt t flags: 
: it°§ Prompting is enabled. 
‘f 1: Retete is an option. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT QUTPUTS: 
NONE 


ROUTINE VALUE: 
Bit 0 set if the repair is selected, clear otherwise. 
Bit 1 set if delete is selected. 


MMNINNNNININ 2 2 2 SS SS SS QDOOOCOCOO 
MOOD NAN EWN SO ODNOA UNE WN OOWONAUIES WT 


9 
3 9 SIDE EFFECTS: 
; 9 NONE 
9 
0 = 
: 
i 
3 : : PROMPT; ! Value of prompt bits 
4 ACTUALCOUNT; 
0 
3 0 


If /REPAIR is not in effect, return no repair. 
iF NOT .QUALCQUAL_REPA) 
RETURN 0; 


A.AAAA AANA 


ROMNMNNNINY 2 


Get PROMPT value. 
PROMPT = %B'01'; 
IF ACTUALCOUNT(S NEQ 0 THEN PROMPT = .P_PROMPT; 


If /CONFIRM has been requested, do it. 
if .QUALCQUAL_CONF) AND .PROMPT 
BEGIN 
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Main module 19° Sep- 
14- mp 
LOCAL 
ANS BUFFER yet roree BYTE], 
ANS “DESC 4; 
Set up a descriptor for the result area 
ins -DESCCDSCSW_LENGTH] = 8; 
ANS-DESCEDSC$B_DTY ped = DSCSK_DTYPE_T; 
ANS_DESCCDSC$B_CLASS) = DSCSK-CLASS“S; 
ANS_DESCCDSCSA_POINTER] = ANS_BUFFER; 
IF .PROMPT<1,1> 
THEN 
BEGIN 


} Prompt with delete option. 
LIBSGET_ COMMAND ( 


AN 
SDESCRIPTOR(' Re air this error (Dt 
ANS_BUFFERLO] = BUFFERLO] AND NOT % 
IF TANS _BUFFERCO) wear %C'D' THEN RETURN 
ELSE 
BEGIN 


Prompt without delete option. 
LIBSGET_ COMMAND ( 


SDESCRIPTOR('Repair this error? (Y or N): 
ANS _ _BU UFRERCO) = .ANS BUFFERCO] AND NOT %0°040'; 


- ANS _BUFFERCO) NEG XC'Y" THEN RETURN 0; 
Ordinary repair has been requested. 


%8'01" 
END; 


Senge ey 
SHR PET 


3A 


re oF 50 5 88 80 SF 
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! Buffer for response 
i Descriptor for buffer 


ASCII 


ASCII 


-LON 
-ADDRESS P 
ASCII 


-BLKB 
- LONG 9 
-ADDRESS P.ABY 


te)? (D, Y or N): 


"bis 


\Repair this error (D to delete)? (D, Y o\ 


- ABW 
\Repair this error? (Y or N): 


10 
vO4~000 anon: IEEeBcH9RE QQ:D8:G9  YABGHH AO AeNadRiP4- 83047 Page $15 


000C 00000 DO_REPAIR: 
«WORD 


Save R2,R3 : 6270 
0000" EF 9€ MOVAB QUA : 
32 atdatt ff f 8 03 nOVA sits tome, R2 : 
4D é3 0 E ° 18 BBC #3, QUAL, 4$ + 6311 
0 i p 1 MOVL #1, PROMPT : 6318 
6¢ OO1A TSTB  —s- CAP) + 6319 
7 1C BEQL 4 : 
50 04 aC D 1 MOVL §_ P_PROMPT, PROMPT : 
42 é E 1$ BLBC =_«QDA + 6324 
3F 0 €9 000 BLBC PRONE T 5$ : 
bE 0100008 BF DO 00028 MOVL #17694728, ANS_DESC > 6334 
04 AE 08 AE i: 002F MOVAB ANS _BUF FER. ANS_DESC+4 + 6337 
18 50 01 f 00 4 BBC #1, PROMPT. 2$ + 6340 
95 AF OF 8 PUSHAB P. t 6348 
04 AE 9F 00038 PUSHAB ANS_DESC + 6346 
62 9 FB O003E CALL me LIBS$GET_COMMAND : 
08 AE BA 0041 BICB2 #32, ANS B + 6349 
44 BF 08 AE 91 0045 CMPB ss ANS_ BUFFER, #68 > 6350 
Op if O4A BNEQ § ; 
50 DO 0004¢ MOVL #3, RO : 
94 O004F RET : 
AS AF OF 90050 2$ PUSHAB P. : 6359 
04 AE 9F 000 PUSHAB ANS_DESC + 6357 
62 9 FB 90056 CALLS He LIBS$GET_COMMAND : 
08 AE BA 0059 3$ BICB2 #32, ANS BUFFER : 6361 
59 «BF 08 AE 1 0005D CMP ANS BUFFER, #89 t 6362 
13 00062 BEQL 5$ : 
0 D4 00064 4$ CLRL = RO : 
04 00066 RET : 
50 01 00 00067 SS: MOVL #1, RO + 6369 
04 0006A : 
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; Routine Size: 130 bytes, Routine Base: CODE + 4A13 


N 10 
VERIFY Main module 16-Sep-1984 :15: AX-11 Bliss-32 V4.0-74 e 1 
V04=000 eRe ra Bey ed Me coat i be ee te ty age 956 
; 6458 64 7 2! 
: 64 4 ; LIBSENABLE_CTRL(OLD_CTRL_MASK) ; 
; 6460 64 END; 
vahtengeth me pe ey PS ee ee 6370 
. ave 6 . +. 6 e 
57 900000006 00 9€ 02 MOVAB SYS$QIOW, R7 : 
6 00000000' EF 9 MOVAB : 
36 66 3 ( 10 BBC #3, QUAL, 1$ + 6401 
0040 8F 0 6E nesnaael 0 C 14 MOVCS #0. (SP). #0, #64, FIB + 6404 
00000000" EF Ben 9003 nowy at, rBe22 i gts 
7E 7C 00029 CLRQ. = =(SP) : 
7E DG 00 B CLRL = (SP) : 
BSEC cr 9F 0002D PUSHAB FIB_DESC : 
‘ 7¢ 00031 CLR =(§ : 
7E 38 7D 00033 MOVO #56, =-(SP) : 
063¢ C6 DD 0036 PUSHL CHANNEL : 
E D4 OO03A CLRL 5 i$) : 
67 OC FB 905¢ CALLS #12, SYS$QIOW : 
66 08 8A 0003F BICB2 QUAL + 6410 
2F 067¢ C6 59 00044 1$ BLBC QUOTA DISABLE, 2$ + 6414 
00460 8F 00 6E aemeal 00 C 0004 MOVCS #0, (SP), #0, #64, FIB + 6417 
sean a ae tae 
7E 7C¢ 9005¢ CLRQ = =(SP) F 
7E D4 O05 CLRL = : 
B5B9 cF OF 0006 PUSHAB FIB_DESC : 
E 7C 00064 CLRQ. =(S : 
7E 38 7D 00066 MOVa #56, =(SP) : 
063¢ C6 DD 0069 PUSHL CHANNEL : 
E D4 0006D LRL. = (SP) : 
67 OC FB 0006F CALLS #12, SYS$QI0W : 
067¢ C6 D4 90072 CLAL UOTA_DISABLE ; 6423 
0658 (C6 9F 00076 2%: PUSHAB OLD_CTRL_MASK > 6428 
000000006 00 01 FB OO07A CALLS #1, ~LIBSENABLE_CTRL : 
04 00081 RET > 6429 
| 
| 


11 
VERIFY, ain module y$-Sep-1984 08:15:20 YaNe1! BL isgc32 4.02749 rage gy) |" 


3 646 6430 1 ROUTINE CTRL_AST: NOVALUE = 

: 646 64 ° 1 

> 6464 64 i 1 !44 

> 6465 6433 1 

; 646 6434 1 | FUNCTIONAL DESCRIPTION: 

3 gre ee 5 ! Shut down the image, a CTRL/C or CTRL/Y was entered. 
; e463 64 5 1 | INPUT PARAMETERS: 

: 6470 64 8 1 NONE 

3 6471 6439 1 | 

; 647% 6440 1 | IMPLICIT INPUTS: 

> 647 644] 1} NONE 

> 6475 6443 1 | OUTPUT PARAMETERS: 

> 667 6444 1! NONE 

: 647 6445 1! 

: 6478 6446 1°! IMPLICIT OUTPUTS: 

; 6479 6447 1! NONE = Image exits. 

> 6480 6448 1 | 

: 6481 6449 1 | ROUTINE VALUE: 

: 648 6450 1! NONE 

: 648 6451 1 | 

+ 6484 6436 1! SIDE EFFECTS: 

> 6485 6453 1 | NONE 

> 6486 6454 1! 

: 6487 6455 1 i-- 

> 6488 64 8 BEGIN 

: or80 ree R ble CTRL/C and CTRL/Y i her whil 
Py H e-enadle an L/Y in case user types another w e we 
; eh rt) 4 ! are shutting down. “i 
: 649 P 6461 $Q10W(FUNC=(10$_SETMODE OR IOSM_CTRLCAST), 

3 6494 P 646 CHAN=,CRANNEL_TT, 

+ 6495 P 646 10SB=10SB 

; 6496 P 6464 PI=CTRL_AST, 

> 649 P 6465 = 

+ 6498 646 P3=PSL$C_USER); 

> 6499 P 646 $Q1OW(FUNC=(10$ SETMODE OR IOSM_CTRLYAST), 

; 6500 P 646 CHAN=, CRANNEL_TT, 

: 6501 P 646 10SB=10SB 

> 650 P 6470 P1=CTRL_AST, 

: 6903 P 6471 Pee 

; 63 4 647 P3=P§L$C_USER); 

; 6808 ee ee Call the exit handler now, before we re-enable cli ctrl handling 
; 6308 6476 SIGNAL (VERIFY$_ABORT) ; 

3 6 647 XIT_HANDLER()? 

: 6510 6478 EXIT(CODE=SS$_ NORMAL) ; 

> 6511 6479 1 END; 


~-EXTRN SYSSEXIT 


000C 00000 CTRL_AST: 
-WORD Save R2,R3 ; 6430 


; Routine Size: 


53 S80o0000" 


E6 
00008000" 
63 
7E 
c8 


7E A3 

00000000" 
3 

000000006 
sia 1 ts 00 
FF21 =F 


000000006 00 


Routine Base: CODE + 


Bc 19:27:59 ead F yesh 


SOOCCWDONMOINS NOVNOVMOMNPS NOWMO 
$9 MOM HF HPN HM AM Om form HMC HO 
ono NNO NOD OVO VNOSO VNVTO OWI VOU NNO; 


FDOWVWDOPMLSIO SPIO NEVODLSIO VO VLEVGOMMN 
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COOoOCQoooQooooooooooooooooooooo 
SOOCOCoOCCOOCOOCOCCOOCOOOOOOOOOOOoO 


BWANA & & FANN AWAPONIPIDN OO 
AMS OO" DOCOMO FS OViwwwiomD OWMNO S&S NYVTIOOPr 


s$-32 V4.0-74 
eS venity e300 
SYS$Q10OW, R3 

108 


=! 


=(SP) 


CTRL AST 
=(SPY 


R 
#091, =(SP) 
CHANNEL _TT 


sp 
#2, SYS$QI0W 
-(SP 

=(SP) 
-(§p 
CTRL_AST 
=(SPJ 


#163, =(SP) 
CHANNEL IT 
a P) 


Ao: EXIT > HANDLER 
#1, SYSSEXIT 


{2 


fees orerers i 


Sete Se Se Se Se Se Fe Se Se Fe Fe Se Se Se Se Se Se Ge Se Se Se Se Ge 


Oo 


PUPP ASIST & AWA WAAAWAGIPOPPUPPORINNINYD 2 PS SS SS 


SOONG NEW OO OONAVUES WN $0 OODNAOU EWN SO ODNAUE WN OOONOU SW 


oa 


APOAAAO 
Uw 
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11 
Main module 1b-5e -1984 02:15: AX-11 Bliss-32 V4.0-74 9 19 
eats Pak eS a a PTE a ok NE ae eo age ¢h5 
ROUTINE CHECK _DATE(ODS2_DATE,ODS1_DATE ,MESSAGE ,FILE_ID,HEADER) : NOVALUE= 


'e4 


Assume that the comparison date is the ODS-2 date. 
DATE = .ODS2_DATE; 


: For ODS-1, convert the date to 64-bit format. 

IF .STRUCTURE_LEVEL EQL 1 

BEGIN 

! The comparison date is the temporary buffer. 


0 1 
1s 
64 j i ! 
6484 1 ! FUNCTIONAL DESCRIPTION: 
ee 5 i This routine checks and corrects a date field. 
64 : 1 i INPUT PARAMETERS: 
6488 1 ! ODS2_DATE - Pointer to ODS-2 date within header. 
6489 1! ODS1 DATE - Pointer to ODS-1 date within header. 
6490 1! MESSAGE - Message to be issued. 
6491 1 | FILE ID - File identification. | 
aes } HEADER - Pointer to header. 
6494 1 | IMPLICIT INPUTS: 
pant ! NONE 
£99 1 | OUTPUT PARAMETERS: 
FE the 
6500 1 | IMPLICIT OUTPUTS: 
b28) : NONE 
$808 1 | ROUTINE VALUE: 
a fe on 
6906 1 | SIDE EFFECTS: 
6507 1! NONE 
6508 1! 
g83 | i 
gt § ais 
$318 ODS2_DATE: REF VECTOR, ! Pointer to quadword date 
6514 ODS1_DATE: REF BBLOCK, ! Pointer to ODS-1 date 
6515 FILE_ID: REF BBLOCK; ! Pointer to file ID 
b218 LITERAL 
651 DATE_LENGTH= 23; 
oak LOCAL 
651 DATE_BUFFER: BOL OCKEROTE LENGTH, ! Buffer for SBINTIM 
6520 DATE_TEMP: VECTORC2) ' Binary date value 
6521 DATE: REF VECTOR, ' Pointer to comparison date 
o2 § DESC: VECTOR(2); ! Descriptor for buffer 
$357 
He 
ss 
$859 
6530 
6531 
65 § 
65 
6534 
6535 
6536 


11 
1f-Sep-1964 99:15:29 YAKeT1 BLieg-52 4.02749 


' 
DATE = DATE_TEMP; 


IF .ODS1_DATECO,0,8,0] EQL 0 
THEN 


PAEAAPEAAAAAAAAAA SH 


DPV PPPS ASTAISIAISISIVIVIVIVT 
USVI ES EE 


NOUS WN OCONOU ES UT 


PUPVPISISI IIIT 


el] 


SSRLEREAN LS SSIS AEAVAS Sarno 3 


PAAAAAAAAAAAAAAO 
oO 


SESSESESS 


PUN OVO NOULWN HO ORNAUN EWN OOO 


BEGIN 


' Null date. If the date is all nulls, set it to zeros so that it 
will surety pass the comparison. If it is not, set it to ones so 
that it will surely fail. 


! 
DATE_TEMPCO] = DATE_TEMP[1) = 0; 
IF CASFIND_NOT_CH(13, .ODS bate 


0) NEQ 
THEN DATE_TEMPLOS = DATE_TEMPC1) = - 


0 
pC 1; 


BEGIN 
| Convert the date to a format acceptable to S$BINTIM. 


DATE BUFFER 33:40 1 _=, .9DS1_DATECO,0, 16,03; 
DATE-BUFFER ee AW acexiepeapne 
ATE BUFFER 110608°03 = ,0DS1_DATELS,0,16,02; 
DATE -BUFFERE I@. DS ie amaneapepipe: 
BAREIS: 2b aaecs. 16.09: 
BATE-BUFFEREDO-0:20:63 = #8§1;DA7EE11-0.16.02 


ry to convert the date using SBINTIM. If this fails, set the date 
o all ones so that it will surely fail the comparison. 


T 
t 

scfo} = DATE_LENGTH; 

SCC1] = DATE BUFFER: 

Nor SBINTIMTTIMBUF=DESC, TIMADR=DATE_TEMP) 
ss DATE_TEMPLO] = DATE_TEMPL1) = -1; 


' 
; 
i 
DE 
DE 
IF 
TH 


Compare date in quadword format. If the comparison fails, issue the message, 
reconstruct the date as appropriate, and rewrite the header, Avoid this for 


— 1 OOO 


the revision date of the index file. Because we are a 


cessing and 


deaccessing index files on the second channel, the re Iston date may properly 
become later than the value we have for the current time. 


ee ee 


PATEL GTRU .CURRENT_TIM 
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Pott ttt tt te ot ey ee NY ee ee 


SSSSSISSFSSSSSSESSSS. 
DME OC OONOUEWN —$OO0ONOu 
OOOO 0909 000009 09 09 0909 SINISE NI SN NIO A AAA AAAAOOUIW 


Wr —O0Onour 


Rorofoforofory 


-DATE 
N 


ath OR 
EQL .CURRENT_TIME[1] AND .DATECO] GTRU .CURRENT_TIMECO) 


F 11 
vO4-000 ws hegase 1er$ep=19be 19:27:59 entrvesneSveni¥¥-03031 Pane (8 


ig esa em 
: 66 659. FILE IDCFIDSW NUM] NEQ FIDSC_INDEXF OR .FILE_IDCFID$B_NMX] NEQ 0 OR 
: 66 6 38 -MESSAGE NEQ VER RIFYS_FUTREVDAT S' 
; 66351 ? 38 THEN - 
: 66 ; 99 4 BEGIN L 
: 66 6600 4 HEADER_ERROR(.MESSAGE, .FILE_ID, .HEADER); L 
> 6634 6601 4 IF DO_REPAIR() L 
: 6635 66 : 4 THEN L 
: 66 6 660 BEGIN L 
: 66 6604 IF .STRUCTURE_LEVEL EQL 2 L 
; 66 5 998? THEN L 
: Bbz8 ge0r Bp “PATEEO} = CURRENT TIMELO}: t 
> 6641 6608 6 gps “DATEL1) = .CURRENT-TIMEL1 L 
> 664 6609 L 
; enh ge19 CHSMOVE(13, CURRENT_TIME_1, .ODS1_DATE) t 
> 6645 661¢ WRITE_HEADER(. FILE_ID, 7HEADERS;§ =~ y L 
; $ 6613 & END; L 
: 664 6614 3 END; L 
: 6648 6615 : END; L 
3 6649 6616 END; . 
‘ 
-EXTRN SYSSBINTIM . 
OOFC 00000 CHECK_DATE: L 
~ WORD Save R2,R3,R4,R5, Re. R7 ; 6480 § 
57 00000000' ce 9€ 00002 HOVAB STRUCTURE LEVEL, : L. 
5E 8 C2 00009 SUBL2 #40, SP : L. 
54 04 AC 00 0000C MOVL  ODS2_DATE, R4 : 6527 L, 
53 54 00 O019 MOVL R4, BATE 3 L. 
01 67 01 901 CMPL STRUCTURE LEVEL, #1 : 6532 L. 
03 13 O16 BEQL : L. 
0080 31 0001 BRW 33 : L 
53 08 AE 9€ 0001B 1$ MOVAB DATE TEMP. DATE : 6538 L 
2 08 A p OO1F MOVL cia : 6541 L 
6 0 TSTB : L 
11. 12 000 BNEQ : L 
08 Ar 7C 3 CLRQ Bare nigh? 3; 6549 RI 
62 0D ; A SKPC =o #0, -F13, (R2) : 6550 RI 
: BNEQ 2$ : S 
D CLRL R1 3 S' 
1 0 2$ TSTL = RY. : 5 
§3 1 BEQL 5$ : 5 
; 1 BRB 4$ > 6551 5 
19 AE $ 8 3$ MOVW (Re), DATE BUFFER : 6558 5 
2 & p MOVB #4 DATE Bu BUFFER+2 : 6559 5 
13. AE 18 0 2 A2 F 4 INSV 2 (Re) Yo DATE_BUFFER+3 : 6560 5 
16 AE 1 003931 p BF F 4 INSV #37 Bat.” #0 424 a, DATE E_BUFFER+6 > 6561 5 
19 AE A : 1 MOVW 3(R2) DATE BUF : 6 6¢ 5 
1B AE 2 6 MOVB #32, OATE_BOFF PER FER : 656 5 
1C AE 07 A H A MOVW 7(RO), DATE BUFFER+12 > 6564 
1E AE 3A F MOVB #58. SATE_BOFFER+14 : 6565 
1F AE 09 A2 B 63 MOVW  9(R2), DATE_BUFFER+15 : 6566 


| 
} 
a 


VERIFY Main module 18-5 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 222 
v04=000 ~BePT18Re Mg: 38:49 = HaNaT Ok degyge ¥G- 05269 ge 926 
1 AE 3a C9 8 MOVB #58, DATE_BUFFER+17 : 6567 s 
2 A B A2 8B é mMOVw  =s-17:¢R p DATE_BUFTER+ 18 ; 6 - 
24 «AE 18 06 003030%¢ re ‘ INSV ff $8062 Hs #24, DATE_BUFFER+20 : 65 § S 
6E 7 7B MOVL #23, DESC + 6575 S 
04 AE 19 AE 9E 0007 MOVAB DATE BUFFER, DESC +4 : 6976 S 
9 AE OF PUSHAB DATE_TEMP 3 657 Ss 
4 AE OF PUSHAB DESC ; > 
ALL » SYSSBIN : 
000000006 f CALLS ase yss81 TIM 2 
oC 1 CE 00093 4$ MNEGL #1. DATE TEMP +4 + 6579 S 
he 1 CF 009 MNEGL #1, DATE-TEMP : S 
146 =O8 04 a3 p 0 5$ CMPL 4(DATE), “CURRENT_TIME+4 + 6591 S 
08 1A OOOA BGTRU 6$ : s 
4 le A BNEQ 10$ 3 6592 S 
10 A? 63 D A CMPL (DATE), CURRENT_TIME : $ 
4 18 Ag BLEQU 10S : S 
sé 10 Ac D AA 6$ MOVL FILE_ID, R6 + 6596 S 
01 66 Bi OOAE CMPW (R6)> ai : 
OF if 08 BNEQ 7$ : 
05 Ab 95 00083 TSTB (R6) : 
OA Ne 0086 BNEQ : 
000000006 8F 0c aC p| 0088 CPL MESSAGE , #VERIFY$_FUTREVDAT + 6597 
16 AC dD O9¢e 7$: PUSHL HEADER + 6600 
56 DD 000¢ PUSHL : 
0c AC DD 000C7 PUSHL ESSA : 
EESS CF 03 FB OOOCA CALLS @# HEADER ERROR ; 
FDDB cr 00 FB OCF CALLS #0. EPAIR + 6601 
02 67 D1 00007 CMPL a #2 3 6604 
06 12 OOODA BNEQ ; 
64 10 A? 7D 0000¢ MOVO §§ CURRENT_TIME, (R4) : 6607 
06 11 000E0 BRB + 6604 
08 BC 18 =A? 0D 28 O00E¢ 8$: MOVC3 #13, CURRENT_TIME_1, @0DS1_DATE > 6611 
14 AC DD O00E 9$: PUSHL HEADER : 6612 
56 DD OO00EB PUSHL R6 ; 
EADE CF 02 FB OOOED CALLS #2, WRITE_HEADER ; 
04 OOOF2 10$: RET + 6616 


; Routine Size: 243 bytes, Routine Base: CODE + 4AFC 


H 11 

VERIFY Main module 16-Sep-1984 02:15: AX-11 Bliss-32 V4.0-74 Page 223 a 

v04-000 12-808- 1382 96:39:98 VERIFY SREIVERIFY b3o0% . (383 

; 6651 617 1 END $' 

; £82) ge18 0 ELUDOM i 
S| 
$ 
§' 

.EXTRN LIBSSIGNAL :. 

3 PSECT SUMMARY : 

: Name Bytes Attributes S 

: DATA 35676 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON. NOPIC.ALIGN(2) 

; CODE 19439 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; Library Statistics 

SUIS Oi Seeer eet eae ee Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: -$255$D0UA28: CSYSLIBILIB.L32;1 18619 350 1 1000 00:01.9 

; Information: 1 

; Warnings: 

; Errors: 

3 COMMAND QUALIFIERS 

H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:VERIFY/OBJ=OBJ$: VERIFY MSRC$:VERIFY/UPDATE=(ENHS: VERIFY) 

; Size: 18284 sods + 36831 data bytes 

Time 4:47.1 


Run : 
Elapsed Time: 9:30.7 
Lines/CPU Min: 13 
Lexemes/CPU-Min: ¢! 
Memory Used: 1160 p 
Compi.cation Complete 


ENT CORPORATION — 


{ BH-BTI3A-SE : PM 
| VAX/VMS V4.0 -AND PROPRIETARY 


AH-BT13A-SE- eee | yet sete Th 


ON 
VAX/VMS V4.0 ND. PROPRIETARY 


I 
ay 


